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ABSTRACT 


aot Moai ine timod FOr EChe attenuation of 
MeEeDOaea vVioratiem and Noise utilizes constituent materials 
whose composition and microstructure combine to absorb energy 
internally and dissipate it. However, the alloy design of 
damping materials which possess both significant energy- 
absorption capacities and also necessary strength levels is 
difficult. Presently, there are several problems associated 
with designing a material with high damping characteristics. 
One of these involes the development of efficient, reliable 
and reproducable methods for measurement of material damping 
@ee@eacities. In this study, the primary area of interest 
eemeernca the development of microcomputer analysis tech- 
niques to study the vibration damping response of two iron- 
chromium (Fe-Cr)-based alloys. The present research utilized 
Been COLDpOLaetOn 2-150 microcomputer to compose 
programming that captures, stores and analyzes the damping 
data produced by various Fe-Cr-based alloy specimens. The 
computer programming developed in the present research ena- 
bles an interface of the Zenith Z-150 computer with a Scien- 
tific Atlanta SD380Z Signal Analyzer. The programs written 
will: (a) store analyzer screen displays on computer disc 
media, (b) facilitate damping measurements, (c) produce 
Seapnie displays Of alloy damping characteristics, (d) calic- 
ulate damping capacities, (e) operate with commercially 
available hardware and software, (f) provide a programming 
tool for subsequent researchers to promote further develop- 


ment of this technique. 
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IT. INTRODUCIGSCN 


a GENERAL 

Audio noise reduction and vibration control of Snipseama 
propulsion and auxiliary machinery hold obvious benefits for 
the Navy and are currently under investigation ee. 
application in United States Navy submarine and surface ship 
design. (Ref. 1: p.12) (Note 1) Conventional strucrtmeas 
alloys generally do not exhibit significant damping 
capacities at stress amplitudes. associated with machinery 
vibration and noise emission. Under prevailing conditions, 
as outlined by Schetky and Perkins (Ref. 2), there are three 
principle methods of vibration and noise control which are 
employed: 

1. Isolation of the machinery source of vibration and noise 
from the surfaces to which it radiates energy. 

2. Dissipation and attenuation of vibration energies 
generated by machinery through the use of absorbing pads 
(i1.e., rubber insulation for pipe hangers, resilient 
motor mounts, etc.). 

3. Attenuation of vibration and noise through the use of 
constituent materials whose Compos futon awe 
microstructure combine to absorb energy internally and 
dissipate it. 

The first two methods are commonly employed and 
are effective, but they contribute Sgn ft veane 
additional weight and utilize valuable space, 


undesirable aspects for machinery applications aboard 


submarines and surface ships. The third method is less 


reco pled, DUC Nas tne potential to eliminate these 
problems, since a design may be possible without cumbersome 
aeeeenmentS Or Supporting structures. However, the alloy 
design of high damping materials which fulfill the desired 
energy-absorption functions in lieu of machine parts and 
also satisfy the necessary corrosion properties and strength. 
requirements of constituent materials is very difficult. 
(Ret 1: p. 13) 

Presently, there are several problems associated 
with designing a material with high Gam penn 
@Sm@eracreristics (Ref. 3: p.l). 


[Mere liable and reproducable methods for 


accurate measurement of the energy- conversion process 
Seecurring WLEnNin the material are still to be 
developed. 


ee better understanding is required of the fundamental 
processes involved in the energy transfer occurring 
within the material (i.e., the damping mechanisms) and 
how these processes relate to the microstructure. 

3. Preservation of damping capacities subsequent 
to mechanical forming is required. 

4. Resistance to corrosion in a marine environment 


requires further investigation, particularly for the 
Fe-Cr alloys (Ref. 4). 


Current research at the U.S. Naval Postgraduate 
memootl On Materials with high internal damping 
mechanisms is directed toward determination of the 
Specific damping capacities of existing commercial 
alloys and the relationships between the mechanisms of 
fomeng, Microstructure and physical properties. 


Ultimately, this research should lead to the development of 


alloys with optimum damping, structural fomming andes rtrengen 


characteristics. 


5. BACKGROUND ; 

All materials display some measure of energy 
absorption or dissipation phenomena. However, most metallic 
alloys exhibit poor damping capacities at stress amp ieee 
associated with machinery vibration and noise emission. 
Specific damping capacities for common structural alloys, 
Such as steels, brasses and aluminum alloys, are less than 
1% See Table 1. (Ref. 1: p. 16). Cast materials, such 
as gray cast iron, typically have higher damping capacities 
than wrought products. The primary feature of gray eeae- 
iron which damps vPbprabwon is the large, flake-like 
particles of graphite @emine = miccosumceurce These large 
graphite flakes are effective in absorbing energy, resulting 
in specific damping capacities ranging from 5% to 10% 
(Ref: 2:3) pazosee Ot neeer ees of caSte iron, comtaintaa 
rounded graphite particles within the microstructure, have 


lower damping capacities. 


LG 


| 





TABLE 1 as 


DAMPING CHARACTERISTICS OF SELECTED METALS AT ROOM 
TEMPERATURE (REF. 2: p.16) 


METAL SDC TREC slRENCTH DENSITY 


(% ) Viger. ) (gm/cm3 ) 

Magnesium (wrought) 49 26 1.74 
Cu-Mn alloys (INCRAMUTE, 

SONOSTON ) 40 45 fe 
Ni-Ti alloy 40 25 6.45 
Fe-Cr-Al alloy 40 40 ee 
megn—-C gray iron ro 25 Tea 
Nickel (pure) 8 9 8.9 
ieem ( DUE ) 16 10 7.30 
Martensitic 

Stainless steel 8 a5 Tose 

Gmey cast iron 6 Z5 18 
SAP (aluminum powder) 5 20 eros 
Low-carbon steel 4 50 enc 
Ferritic stainless steel 3 45 eS 
Malleable, nodular | 

cast irons 2 50 Tae 
Medium-carbon steel 1 60 TeaSiGi6 
Austenitic 

stainless steel i 35 fae 
1100 Aluminum O43 5 Oya 
Aluminum alloy 2024-T4 Or. 2 47 Dewi 
Nickel-base superalloys <0.2 Range nS 
Titanium alloys <0. 2 Range a5 
Brasses, bronzes SO 2 Range Co 


In recent years, several new alloys have been 
wee hoped which exhibit significantly higher specific 
damping capacities (in excess of 40%), aneineciing Cu-Mn-based 
alloys (SONOSTON, INCRAMUTE), Ni-Ti alloys (NITINOL), and 
Fe-Cr-based alloys (SILENTALLOY, VACROSIL, GENTALOY, etc.). 
Damping inherent to these high damping alloys, as for any 
Such material, originates within the microstructure. The 
microstructure of a material determines the mechanisms 
responsible for internal damping of external excitations. 
Some variables of the imposed vibration, such as frequency, 


strain amplitude and number of cycles, can of course also 


dia 


influence the vibration damping response of a Particular 
alloy. (Ref. 5) The character of Chewimpesed Exeitariconeean 
produce a variety of microstructural responses, whiteaan 
general result in damping due to irreversibilities incurred 
when a material is subjected to an alternating stress. fThe 
absorption of energy via "internal friction" is due to these 
irreversibilities, whether the "friction" is due to fer- 
romagnetic domain walls or intercrystalline boundaries. 
The internal friction results in the energy loss per cycle 
which is referred to as damping. The energy losses which 
. Characterize these irreversibilities may be evident in 
stress-strain hysteresis, representing ferromagmo ves 
mechanical, and/or thermal losses. The amount of energy 
loss is closely tied to material microstructure as a 
funeGwTOn OL: 

* the constituent elements within an alloy system 

* thermomechanical history 


* environmental temperature and whether it is above or 
below a "threshold" temperature 


x the imposed stress level, perhaps with respect to 
a critical stress level 


Under cyclic (or periodic) stress, several microstructural 
damping mechanisms are possible, depending upon the 
material. Among them are: 

* dislocation damping (Refs. 5, 6) 

* interphase boundary damping (Ref. 5) 


* phase change effects (Ref. 5) 


TZ 


Previous research on “mg@uilet alloys™ at the U.S. Naval 
Postgraduate School had been concerned mainly with 
nonferrous alloys, specifically the Cu-Mn based alloys 
SONOSTON (Ref. ) and INCRAMUTE (Ref. 8). Damping 
mechanisms for these alloys apparently involve the 
Pmeeraetcion of cyclic stress with twinned and "tweed" 
mMmeerostructures (interphase boundary damping). (Ref. 1) 

In this study, as in O'Toole's (Ref. 1) and Ferguson's, 
(Ref. 8a), the area of interest concerns itself with iron- 
chromium (Fe-Cr)-based alloys, and specifically an iron- 
GEhromium-molybdenum (Fe-Cr-Mo) alloy and an iron- 
chromium-aluminum (Fe-Cr-Al) alloy, ae COMPesreLlons LOG 
which are given in Appendix A, and which were were verified 
by two independent analysis reports. Previous research by 
Cochardt (Ref. 9), de Batist (Ref. 5), Schilling and Houze 
Mueeeo), Willertz (Ref. 11), Suzuki, et al. (Ref. 12), 
Masumoto, et al. (Refs. 13-15), Schneider, et al. (Ref. 16), 
and Kasper (Ref. 17) has established that the damping 
mechanism for this alloy group results from the ferromagnetic 
properties of the material. According to de Batist (Ref. 5: 
p.43), the damping mechanism is domain boundary damping due 
Eocene magnetomechanical interaction phenomena which 
naturally occurs in ferromagnetic materials. | 

High vibration damping has been reported for 
Several ferrous alloys, particularly for the binary systems 
Fe-Cr (12 - 16 wt. % Cr) (Ref. 13) and Fe-Mo (2 - 5 wt. % 


Moi (Ret, 14). It has also been reported for the ternary 


13 


systems Fe-Cr-Mo (Refs. 12, 15) and Fe-Cr-Al (Refs. 18-21). 
A recently introduced high damping Fe-Cr-based alloy has 
been placed on the commercial market by Vacuumschmelze, 
G.M.B.H. (VAC), of Hanau, West Germany, with the registered 
trade name of VACROSIL-010. This material is available in 
two similar compositions, Fe-Cr-Al and Fe-Cr-Mo, the latter 
being called a SoEresion resistant grade (Ref. 17). The 
corrosion resistant version of VACROSIL-010 (Fe-Cr-Mo) is of 
special interest to the Navy. For direct informatwen 
regarding its corrosion resistance in seawater, reference 
should be made to Escue (Ref. 4). 
C.. OBJEGriya2s 

This study used a recently developed method for 
damping measurement; the single cantilever beam resonance 
dwell technique, discussed in greater detail later in this 
introduction. The resonant dwell technique employs forced 
vibration to determine the loss factor and dampuarg 
coefficient of a simple cantilever beam by meaSuring its 
response to excitation at a modal frequency. (Ref. 26) This 
.research augmented the resonant dwell measurement approach 
by exploring the utilization of a microcomputer to process 
the damping data produced by the vibrating catilever beam. 

The microcompurpcecrn Gurren al nee sufficient memory 
capacity to permit the processing of large programs and 
volumes of data. That advantage is useful to analyze the 
entire damping response of a vibrating cantilever beam at a 


resonant node. Although the assignment of Specific Damping 


14 


Capacities (SDC) and/or damping coefficients partially 
characterize a mechanical energy absorption material, 
iemvadually those’ and similar numerical parameters may be 
insufficient to fully describe the damping response. Today, 
affordable equipment such as the microcomputer is available 
which permits broader characterization and analysis of the 
mechanical response of a material. ; 

This research utilized a Zenith Z-150 microcomputer in 
fommunction with a Scientific Atlanta SD3802 Signal 
Analyzer to capture, store and analyze the dampening data 
produced by various specimens. Most eeeoe a BASIC 
microcomputer program (Appendix E) was developed which 
accomplished the following objectives. 

MeeecesDrOVIdes a programming tool for further 
development of simple programs POG eo loa aieeko l) 
and analysis of materials damping data. 

* It provides limited automation that simplifies and 
meoaedlitatces the laboratory data collection and 
analysis process. 


pele itlustrates the potential of this approach. 


* It operates with commercially available hardware and 
software. 


For the actual vibration experiments, this research 
considered Fe-Cr-Al and Fe-Cr-Mo alloys of similar compo- 
Sitions (Appendix A) to the VACROSIL alloys with the 
following objectives: 

* To further determine the relationship between the 
room temperature damping properties of Fe-Cr-Al and Fe- 
Se-Mo to applied strain (or stress) under random 
Zor aeloOmmmcondrrLons TOF @various) heat, treatment 
histories; one hour annealing at various temperatures 


between 950 C and 1100 C followed by subsequent furnace 
Soouuice lots Marrow region of heat treatments was 


ius 


chosen because prior work (O'Toole, Ref. 1) indicated 
that such heat SDS OUTSIEN produced the greatest damping 
capacities. 


x* To produce graphic displays of alloy dampecneaae 
characteristics versus sample heat treatment histories. 


* To attempt to image the ferromagnetic domains thought 
responsible for observed damping (Note 2). 


* To document the microcomputer analysis methods which were 


developed to enable further development of this technique 
by subsequent researchers. 


— 


D. MACROSTRUCTURAL DAMPING, MATHEMATICS & MEASUREMENT 
TEGRNEOUzS 


1. Mathematics for Damping ez pnes= sors 

The ability of a material to absorb vibrational 
energy and convert such energy to other forms, such as Neat 
or mechanical friction, is defined as the damping capacity 
of the material. Specific damping capacity is the fraction 
of input vibrational energy or amplitude absorbed during one 
cycle of vibration. There are several methods to 
characterize the vibration damping of a material (Ref.1: 
p.18). Some of the more frequently employed methods are: 

a. Logarithmic Decrement (delta, d) 

The natural logarithm of the ratio of any two 
successive decaying amplitudes in time is the deltinivilewee. 
logarithmic decrement. Free vibrations decay exponentially 
for a linear system. Thus, the faster the decay, the larger 
the decrement, indicating greater damping. (Ref. 22: p.138) 

see Figure 1. 
qd = In(a(i)/a(itl1))= (27a) ina 0 7 aia (1) 


where n = number of cycles between a(0) and a(n) 


ee 


Bs Oiaibeyenaceear (©) 
The quality factor, often used in electronics 
signal analysis, is a measurement of the sharpness of a 


resonance peak. (Ref. 23: p.76) See Figure 2. 


Q wn/(w2 - wl) = 1/2 * Zeta (-2,) 


where Zeta 


damping factor and w2 & wl are 3db lower than wn 
om fimeernal Frtecion (1/0) 
Internal friction is defined as the inverse of 


m@emaquality factor. (Ref. 5S: p.41) 


1/Q = (w2 - wl)/wn = 2 * Zeta (35) 
This expression is also known as the loss 
mae cor . : 
a. Normalized Bandwidth (Figure 2) 
From the half power method, damping can be 
measured in terms of the frequency width (w2 - wl) of the 


peak at the resonant frequency (wn) at points on the curve 
corresponding to 0.707 (l1/square root of 2) of the peak 
amplitude. Witcmecarlewlatlon corresponds to the™ points on 
the resonant peak at which the stored energy is half its 
maximum value at the resonant frequency and is normalized by 
that frequency. (Ref. 21: p.76) 
e. Specific Damping Capacity (SDC) 

| SDC is the percent of strain energy dissipated 
during a stress cycle for a material undergoing oscillating 
excitation. (Ref. 24: p.444). 


SBC = (ree) -2 — acijo2)/a(i)+2 (4) 


i 


If fa(it+l) - a(i)] is small, SDC can be approximated by 
(Ref wees peas) 
SDC = 2[a(itl) - a(i)]/a(i) GS) 
f. Phase angle (@) 

The angle by which strain lags behind stress in 
cyclic or periodic loading is detineéd as the phase Vanga 
(Ref. 24: p.445) 

tan @ = (1/pi)*ln[{a(i)/a(it+tl)] = d/pi (6) 
where pi = 3.1415927... = Gimeuntesenee/ diame eer 
For small values of damping (zeta < 0.5), the following 
relations hold: (Ref. 8: p.18-19) 
tan @= d@/pi = 1/70 = 2%zera : 
SDC(%) = 200*pi/Q = 200 * pi * [ (w2-wl)/wn] (a 
Specific Damping Capacity (SDC) was the parameter primarily 
used for damping measurements in this report. 
g. Resonant Frequency (w(n)) 
Resonant frequency is the natural frequency of a 


cantilever beam corresponding to the nth mode (Ref. 23: 


p.464): 
win)oe (Cas2] (Eximsl ogee (8) 
where E -- Young's Modulus of Hilastieie, 
I -- Moment of Inertia 
m -- beam mass per unit length 


1 -- vibrating length of beam 


Cn -- function of the mode of vibration of the beam; 
values for several different modes (n) 
are given below for a clamped cantilever beam 
(Ref. 23: p. 466) 


Ls 
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2 4.6941 2220345 
5 7.8548 Orlow 2 


2. Damping Measumement Techniques 


Damping measurements on Fe-Cr alloys have been per- 
formed in the past primarily using either an inverted 
torsion pendulum apparatus (Refs. 13-15, 19) under free 
aaa mSemditions, "865 Via Eorced vibration (Ref. 11). 
Another method which has been utilized employs the 
Cantilever beam (Ref. 12, 16) wherein damping is also 
determined from the decay of free oscillations. | 

This study used a method that has begun to receive 
increasing attention, the single cantilever beam resonance 
dwell technique. This method, developed by Bolt, Beranek and 
Newman, Inc. (Ref. 25) can be used to determine the stress 
and frequency dependence of material damping over a 25 - 2000 
Hz frequency range. The resonance dwell technique is an 
induced vibration method for determining the loss factor of 
a simple structural element by measuring its response to 
excitation at a modal frequency. This technique was 
demonstrated for vibration damping measurement by Kaufman, 
Kulikn, and Neshe (Ref. 26) for NiTi and CuAlNi. To 
Summarize this approach, a cantilever beam is clamped to a 
bar; the bar in turn is connected at one end to an elec- 
tromagnetic shaker and to a heavy base at the other. An 
accelerometer is mounted at the root of the sample. The 


input excitation signal is measured by this accelerometer. 


The cantilever beam (specimen) response is measured by a 
second accelerometer at the free (unsupported) end of (tue 
beam. The fundamental (first modal) natural frequency "f" of 
a cantilever beam of length "Il" (inches) Sand” thickie>- 3 

(inches) is: "(REE 2825 spc.) 

f = (t/2 * pi) * (Cn/1)92.*% (32B/Rejsl) 2 Gyelie— sec) (9) 
where Cn is from (Eq. 8), Ro is the density of the sampiouaa 
‘(Obs 7 and E is the dynamic Young's Modulus. "1" is the 
vibrating length of the beam, while the width (an 
independent factor) is 0.5 inches, conforming to the width 
of the bar to which the specimens are clamped. See Figure 
Si 

The positions of the first three nodal points) (a 
1,2,3) from the root of the beam, located as a fraction of 
the entire beam length, can be shown to be: for n= 1, 1 
0.0; for n = 2, 1 =.53 5000 r ne 3 8 = Oe oe eee 

sae Microcomputer Uiniazacilen 

The practice of using two accelerometers was 
initially developed by Professor Y.S. Shin of the Naval 
Postgraduate School. In the recent work, signals produced 
by the input accelerometer (at the root of the specimen) and 
the output accelerometer (at the tip) were processed for 
this study by a Scientific Atlanta spectrum analyzer to 
produce the frequency response of the vibrating beam at a 
resonant mode. This method has been tested and compared to 
a forced torsion pendulum device for the measurement of 


damping in SONOSTON by Dew (Ref. 7) and further tested by 
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Reskusich (Ref. 8) for INCRAMUTE, and by Cronauer (Ref. 27) 
for Ti-Ni and Fe-Cr-Mo. Since the signal analyzer has a 
built-in computer interface bus and programable memory, a 
Zenith Z-150 microcomputer was used to operate the analyzer 
much of the time. Using the computer permitted: (1) storing 
analyzer set-up configurations, and using such set-up files 
to configure the analyzer much faster; (2) capturing 
dampening data in hard disc files and analyzing it at will; 
memecombining the graphic displays relating damping 
characteristics of several samples on one graph; (4) writing 
the final report, etc. 
E. MICROSTRUCTURAL DAMPING MECHANISMS OF FERROMAGNETIC 
ALLOYS 
As discussed previously, the aetna ey microstructural 
mechanisms which contribute to high damping are: 
* dislocation damping 
* interphase boundary damping 
* phase change effects 
Damping in ferromagnetic materials is -generally the 
result of two damping mechanisms. The damping caused by the 
magneto-mechanical hysteresis effect is the primary mode of 
damping. This damping mechanism is described by de Batist 
(Ref. 5, p.43) as a form of interphase boundary damping. A 
secondary mode of damping in these materials is due to the 
interaction of dislocations within the material (Ref. 27A). 
This paper is concerned with the first and primary damping 


mode. 


om 


Ferromagnetic materials manifest magnetic donaiuen 
which are more or less randomly oriented in an unmagnetized 
‘material. Upon the application of a magnetic field, or a 
unidirectional tensile (or compressive) stress, these 
domains tend to align with the direction of the tensile 
strain. Any subsequent movement of ‘these domains produces 
an ee eerie (but restorable) apenee in the dimensions of 
the material called "magnetostriction." When a stress- 
strain curve for an unmagnetized ferromagnetic material is 
plotted, more strain is measured than is postulated by 
Hooke's Law. Upon gradual removal of the load, the elastic 
Strain Sever ts Secu. caseanmna negligible plastic 
deformation), but the magnetostrictive strain remains nearly - 
constant, (i.e.), the unloading curve follows a hysteresis 
loop. The greater the area of the hysteresis loop, the 
larger the damping capacity of the material, from which it 
may be inferred that the damping capacities of high-strength 
ferromagnetic alloys are functions of magnetostriction and 
stress. (Ref. 1: p.26) 

Considering microstructure, and Summarizing, dampamg 
properties of the material are related to the movement of 
domain boundaries upon the application of stress. In their 
work with grain-oriented 3% Si-Fe, Schilling and Houze (Ref. 
10) outlined their theory regarding magnetic domains as 
follows: 

a. Ferromagnetic domains are small magnetically 
ordered crysStal regions Ow 2 enema meee fi 


magnetization is equal to Ehe Vsaturarcion 
magnetism. Therefore, the net magnetization is 


oe 





a vector sum of the magnetization for all of the 
domains. 

PeeuUpen the application of a magnetic field or 
external stress to a magnetic-material, 
(Orientation) changes in the domain structure 
occur which produce changes in the overall 
Specimen magnetization, as well as the specimen 
dimensions, (i.e.) "“magnetostriction." 


c. Response to changes in an external field may be 
manifested in one of two primary manners. 
Either magnetization within each domain may 
coherently rotate to a direction parallel to the 
applied field, or the boundary between two 
domains may move; in the latter case, the 
changing magnetization is entirely localized at 
the domain boundary. 


In materials.such as cast 3% Si-Fe, magnetic domain 
misalignment is earn ePeneier: oe domain 
rearrangements occur- by ene movement of domain boundaries or 
walls between domains. These are called Bloch walls (Ref. 


28: p.613) and are considered to be about 1000 angstroms 


thick. Bloch walls function in a manner similar to grain 
boundaries. They are narrow zones in which the magnetic 
moment vector changes from one domain to the next. Such 


domain boundaries have been imaged using an electron 
feeemoscOpe by H.W. HFuller and M.E. Hale (Ref. 29), S. 
Mmelinckx (Ref. 30), J. Silcox, E. Fuchs and others. 
Stressing a ferromagnetic material acts to align the 
magnetic domains in the direction of the stress. Under 
stress (or a weak magnetic field), domains aligned with the 
applied field tend to grow at the expense of neighboring 
domains whose directions are less favorably oriented. As 
the applied stress (field) becomes stronger, it can also 


produce a rotation of the magnetic moment vector within 


ae 


domains toward the direction of the applica Stress i us 
(Ref. 24.5 paises This domain movemene) results Seiwa 
irreversible change in the material called magnetostriction. 
When energy imparted to the system in the form of mechanical 
vibrations produces this transformation, the resulting 
attenuation of applied vibrational ferece const rtures 
damping eacaady ols in fact a relatively potent damping 
mechanism. (Ref. 1: p.28) 

Another important point concerns the magne uae 
transition or Curie temperature of the material. When the 
temperature of a ferromagnetic material is increased, the 
added thermal energy reduces its degree of magnetization by 
permitting random domain reorientation. Heating above the 
Curie temperature for a short period completely transforms 
the material to a non-magnetic (paramagnetic) state in which 
the domains are randomly oriented thiouqghouc ee 
MICrFOSCrUCEUTe. BORE see 

Crystalline materials, whether ferromagnetic or not, 
exhibit effects in response to periodic stress due to 
dislocation damping. Under an applied stress, dislocation. 
move in an oscillatory manner and energy is absorbed by the 
material. Of course, if the applied stress is high enough, 
the material will react plastically, and undergo an 


irreversible shape change. 
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EB MATHEMATICAL RELATIONS FOR DAMPING MECHANISMS OF 
FERROMAGNETIC ALLOYS 


The relationship between parameters of macrostructural 
damping in ferromagnetic materials is provided by Cochardt 
mene) 9: p.l97-199) for damping capacity, magnetostriction, 
Critical stress, and maximum stress. The damping. capacity 
is expressed as the logarithmic decrement (delta rer we )is 


q 


fly 2 (UV/U) (10) 
where U = mean elastic energy of the specimen. 


U 


(1/V)*(1/2)*integral{ (sigma*2)/E dv} a 
where.V is volume; sigma is normal stress; and E is Young's 
FeeGlus. 

Uv is the energy dissipated in the entire specimen per cycle 
per unit volume (Ref. 9: p.197) 

Uv = (1/V) * integral( dU dv } (i2)) 
where dU is the elemental energy loss per cycle and unit 
volume at the volume element dV. dU represents the area of 
the hysteresis loop due to the magneto-mechanical effect. 
For small stresses, the area of the hysteresis loop is 
described by: (Ref. 9: p.198) 

ae Db < (Sigma 2 ) (lass) 
where D is a constant according to Rayleigh's law. For 
stresses larger than a maximum or critical (sigma-c) stress, 


beyond which the area of the hysteresis loop remains 


constant, dU is constant and can be written as: (Ref. 9: 
P98 ) 

qu = K * lambda * sigma-c (14) 
where K = 4 for an ideal parallelogram-shaped loop 


ZS 


K = 1 for most other cases 
lambda = saturation magnetostriction in the 
easy direction of magnetization 
The assumption is made that Rayleigh's Law is valid up to 


this critical stress. Therefore, (Ref. 9: p.198) 


qdU = D(sigma~*2) O < sigma < sigma-c 
aU = K lambda sigma-c Sigma-c < sigma < sigma-m 
---> D = K lambda/(sigma-c)*2 {sigma-m is maximum normal 


stress in a cantilever beam} 
Substituting the above relation into equation 12 3am 
replacing av by (dV/dsigma)dsigma, the logarithmic decrement 


becomes: (Ref. 9: p.198) 


Gd = (1/V)*(K lambda/2U)*integral{ sigma*2/(sigma-c)~*2 
QO --> sigma-c x (dV/dsigma)dsigma } 
+ integral{ sigma-c(dv/dsigma)dsigma } 
Sigma-c -~> sigma-m (185) 


As previously defined, Q*-1 = d/pi. 
Therefore, equation 15 can be rewritten as... 


Q*-1 = (1/piv)*(K lambda/2U)*integral{ sigma*2/(sigma-c)~2 
0 --> sigma-c * (dV/dsigma)dsigma } 


+ (l1/pi) * integral{ sigma-c(dV/dsigma)dsigma } 
Sigma-c --> sigma-m ( le 


It should be noted that dV/dsigma is the stress distribution 
fune Giron This can be evaluated in terms of the stress 
conditions of a cantilever beam: 

Sigma eae 2 7 (17) 
where M = bending moment 
z = Gistance from the neutral axis of the 

Cantilever beam 


moment of inertia of beam rectangular 
cross section 


I 


il 


For a cantilever beam, Cochardt continues this derivation 


and defines the logarithmic decrement as: (Ref. 9: p.199) 


Zo 


d = 9K*lambda*E* (sigma-c/(sigma-m)*2 * (1 - sigma-c/sigma-m 
x ( ya et ena m/s cma-c) + to/16..) _) 
for sigma-c < sigma-m (16) 
This equation provides an analytical expression 
for damping which relates several of the pertinent 
variables. It is apparent that after sigma-c is reached, 
further streSs tends to reduce the resultant damping, as the 
squared term predominates. BUrENee dee lander = last 1c 
modulus promotes greater damping in such materials. 

Damping associated with- a ferromagnetic material thus 
Beaenes a maximum value at a point of critical stress. 
Beyond this point, gradually decreasing values of damping 
are recorded with increasing stress. This is attributable 
to a saturation condition for damping wherein the existing 
domains cannot grow or move any further. Peace cone 
Degauque, Astie and Kubin (Ref. 27A) report from their 
experiments with high purity iron that the interaction 
between 90 degree magnetic domain walls and dislocation 
tangles appears to be a major obstruction to the motion of 
magnetic domain walls. Single defects like isolated 
dislocations can interfere with small displacements of 
magnetic domain walls but they can not substantially oppose 
the large scale movement of these walls in the vicinity of 
maximum damping. Therefore, an increase in dislocation 
density produces a decrease in the intensity of maximum 


Bemping. (Ref. 1: p.31-32) 


Ze 


G. METALLURGY OF THE IRON-CHROMIUM ALLOY SYSTEM 
1.- Physical properties lof uENeREes em seme 

The composition range of Fe-Cr binary alloys which 
are of interest as high damping ferromagnetic, alloys is 
Similar to that for ferritic stainless steels, one of the 
three main classes of stainless steels (the other two being 
austenitic and martensitic alloys). Ferrivtic stainless 
steels are iron based alloys with a chromium content ranean 
between 12 and 30 weight percent. The use of ferrite 
stainless steels has been much more restricted than 
austenitic stainless steels because ferritic steels are 
susceptible to embrittlement, are notch sensitive, and 
exnilome poor weldability; factors which contribute to peg 
fabrieabilitcy. However, advantages of poets stainless 
steels include high resistance to stress-corrosion cracking, 
and good to excellent corrosion and oxidation resistance. 
Ferritic stainless steels are also known to have excellent 
damping properties. (Refs. 11 & 31) 

Ferritic stainless steels are structurally quite 
Simple. At room temperature, the Fe-Cr (alpha) solid 
solution has a body-centered crystal (bcc) structure. These 
alloys contain very little dissolved carbon, the majority of 
which appears in the form of finely divided chromium carbide 
precipitates. (Ref. 1: p.33) 

The Fe-Cr binary phase diagram (Figure 4) exhibits a 
great deal of activity in the 11% to 12% Cr content region. 


As outlined by Peckner and Bernstein (Ref. 32: p.5-2 - 5-3), 


the following relations and potential transformations exist. 
(Ref. 1: p.33-34) 


* As a member of a group of elements described as 
ferritic stabilizers, chromium extends the (alpha) 
phase field while narrowing and suppressing the 
(gamma) face-centered (fcc) phase field. As evi- 
denced in Figure 4, this creates a "gamma loop" 
extending in temperature range from 850 degrees 
Centigrade (C) to 1400 degrees C and from zero to 
about 12.5 weight percent chromium. 


* Whereas the transformation from alpha to gamma phase 
occurs in pure iron at about 910C, at an 8% concentra- 
tion, chromium depresses the transition temperature to 
@pewt 850C. Upon further addition of chromium, the tran- 
sition temperature rapidly increases to about 1000C as 
the chromium content reaches 12% to 13%. 


* Whereas in pure iron the inverse transformation from 
gamma to alpha occurs at about 1400C, this reaction is 
depressed to about 1000C in the 12% to 13% Cr range. Also 
at this point in the phase diagram (1000C, 12% to 13% 
Cr), the upper and lower temperature alpha:gamma curves 
join to close off and form the gamma loop. Beyond 12% to 
13% Cr, transformation to gamma is no longer possible and 
an alloy would remain ferritic (bcc) over the entire 
range from room temperature to melting. 


x Between the extensive alpha phase field and the gamma 
loop, there is a relatively narrow transition band where 
the alloy can have both alpha and gamma phases. Because 
of the narrow extent of this two phase region, depending 
on the annealing temperature, alloy composition and 
quench rate, a two phase composition may or may not be 
retained upon cooling to room temperature. 

The defining parameters of the gamma loop have been 
established for the Fe-Cr binary system through the work of 
Baerlecken, Fisher, and Lorentz (Ref. 32: p. 5-3). Using 
magnetic measurements at elevated temperatures, the lowest 
point in the gamma loop was identified at 840C and 6.5% Cr. 
The greatest width of the alpha and gamma phase field 


occurred at 1075C and reached to about 11.5% Cr. Variations 


in the extent of the gamma loop were found to be very much a 


Ze 


function of the addition of austeniZzing cl emenge 
particularly carbon and nitrogen. Increasing Levels of these 
interstitial elements causes the gamma loop to extend to 
higher chromium levels See Figure 5. 

Another effect of carbon is that because of its low 
solubility in the alpha phase, excess carbon is rejected from 
the solid gamma solution to form complex carbides, such as 
(Cr,Fe)7 C3 and (Cr he) 23 Coy eae ce preci pues 
predominately along grain boundaries. (Ref. 1: p.35) These 
grain boundary precipitates are a primary factor behind the 
lower toughness of ferritic steels. 

The strengthening mechanisms normally characteristic 
of stainless steels do not apply to the ferritic stainless 
steels. Ferritic stainless steels are characterized by the 
absence of an alpha --> gamma transition upon heating to high 
temperatures. Consequently, hardening Ghat occurs™as a 
result of a gamma --> martensite transformation upon cooling 
will nov normally eceir Reise co) 

The greatest disadvantage to the use of ferritic 
stainless steels has been a loss of corrosion resistance and 
ductility following exposure to high temperatures. After 
certain heat treatments, chromium precipitates out of 
solution as chromium-carbides along grain boundaries, thus 
reducing the desirable characteristics impacted by chronimum. 
However, the addition of molybdenum (MO) improves the 


corrosion resistance of ferritic stainless steels. 
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Molybdenum forms benign carbide precipitates and allow Cr to 
remain in solution upon exposure to elevated temperatures. 
Zoi ticmerOperties of Fe-Cr Alloys 
The damping properties of Fe-Cr alloys are 

attributable to the magneto-mechanical hysteresis mechanism 
associated with ferromagnetic materials. This mechanism is 
directly related to the physical state of the material and 
the associated milemeeeructure. Dice rellow inc moay sical 
parameters affect the magnetic domain wall mobility of the 
material and subsequently its damping capacity. (Ref. 1: 
lon 6 ) 

ae oumernn Ore scuress (Refs. 9,11-13,15- 
meee, 19,21) 

The degree to which stress influences 
damping depends on the alloy's thermo-mechanical history. [In 
general, damping capacity increases with applied stress or 
Se pave . Damping will reach a maximum value with stress 
beyond which further stress will lower damping values. 

b. Cold Work (Refs. 16,17,26) 

Damping CapaeGwey is strongly deteriorated by 
cold work. A reduction of >= 5% completely destroys the 
damping effect; however, it can be fully restored by a 
succeeding heat treatment. 

c. Magnetic Field (Refs. 9,11,14-17,20,33) 

At high fields, the domain walls become 

jmeca;, i.e., the damping capacity decreases and finally 


disappears. Therefore, these alloys should not be used in 


Sl 


applications where there are stray magnetic intensity fields 
greater than the range of 50-- 100 A/cm. 


qd. Magnetic (Curie) Transformation Point 
(Refs. 28, 32,34) 


The magnetic transformation temperature, 
otherwise known as the Curie temperature, is the point above 
which iron is paramagnetic and, below which jae 
ferromagnetic. Paramagnetic iron is nonmaqaeeme 
(permeability = 1.00). Ferromagnetic iron is magnetic 
(permeability > 1.00), the magnitude varying jue 
composition. At room temperature gamma-austenite (fcc) is 
nonmagnetic while alpha-ferrite (bcc) is ferromagnetic. 
Therefore, the magnetic composition and hence the ultimate 
damping capacity is affected by the degree of alpha-ferrite 


present in the structure. 


Note 1: The basic format and text for this introduction were 
patterned after a thesis by John F. O'Toole, who conducted 
previous research regarding Fe-Cr vibration damping alloys 
(Ref. 1). However, this introduction significantly modifies 
and amplifies that original reference. 


Note 2: Visiting Professor Yamashida conducted the electron 
microscope work to attempt imaging of the ferromagnetic 
domain walls. His assistance was gratiously provided for 
use in this report. 
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IIT. EQUIPMENT AND EXPERIMENTAL PROCEDURES 


A. PRIMARY EQUIPMENT 

The user manuals noted as references 35 - 43 describe 
the primary equipment components used for this research, and 
their general configuration requirements. Figure 6 and 
reference 27 describe the spectral analysis instrumentation 
utilized, and schematics for the connection of that equipment 
for utilization of the resonant dwell technique. Tis 
section briefly discusses the resonant dwell apparatus, and 
provides installation details for the GPIB-PC computer 
interface board. set-up parameters for the peripheral 


equipment controlled by the computer are also covered. 


ee SPECTRAL ANALYSIS AND BEAM SPECIMENS 

Damping measurements were performed using a modified 
resonant dwell technique. This method uses forced random 
vibrations to determine the Specific Damping Capacity (SDC) 
and Damping Coefficient (zeta = 1/(2 Q)) of cantilever beams 
Peemeasuring their response to excitation at modal 
frequencies. (See equations 3 and 7) (Rei 27 ep eso) The 
system input and output were measured by accelerometers (Ref. 
42) mounted immediately above the beam root and at the beam 
tip, respectively. The accelerometer outputs were compared 
Weeput/input) by a signal analyzer (Ref. 39) to produce the 


transfer function frequency response for the beam. Based on 


oo 


this data, Specific Damping Capacivtyas( spe) and Danpaae 
Coefficient (DC) of the beam material was calculated. (Ref. 
27: p. 36) Unlike prior research, SDC and DC were calculated 
by computer at the first modal frequency to demonstrate the 
functioning of the Signal Analyzer (S/A) Interface Program, 
the BASIC program developed in conjunction with this report. 
The geometry of the cantilever beam specimen is deGiagee 
in Figure 3. (Ref ..e25) Beam width and grip length are 


specified, but the vibrating length (Lv) and thickness are 


not. Beams used in this research were originally prepared 
by LCDR D. Ferguson, USN, (Ref. 8a). Beam dimensions and 
heat treatments are provided in Table 2 below. All beams 


were solution treated at the listed temperatures (degrees 
Centigrade) and furnace cooled. 

When using the technique of modal analysis, the fact 
that beams have multiple resonant frequencies is used to 
generate significant strains within the beam structure. 
Forced vibration at one of these resonant frequencies causes 
certain points {nodes) along the vibrating LTenogrime. 
approach their maximum displacement amplitudes. The 
corresponding shape or response is called the "normal mode" 
for that resonant frequency. The first three normal modes 
for a cantilever beam are illustrated in Figure 7. (REIS. Ze 
and 27) The mode 1 (lowest) resonant frequency is known as 


the primary (or first) natural frequency, W(n). fhis Ticse 
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TABLE 2 


Composition Vasgiec 10g Selut lon 
(Appendix 1) Thickness Width Length Treatment 
Specimen # (inches) @ueres euoemes)) SecgEecsee) 
Fe-Cr-Al | 
AB-1l 2055 7506 e007 IPOS 
AB-2 sO S ou T2077) LAO. 
AB-4 08 3 505 TO ural HOS 0 
AB-5 201 3 ys lOMs To POS O 
AB-7 .080 5016 T0163 1000 
AB-8 -080 3506 be 1000 
AB-10 sO:8)2 -504 6.929 950 
AB-11 m0 S Sow 6.890 950 
Fe-Cr-Mo 
MB~-4 KOS Z 7506 73.007 1050 
MB-5 -UoZ -504 TOS O50 
MB-7 "083 -504 TeOey 1000 
MB-8 Os. 3 -504 dea aS 1000 
MB-10 0s 70.0 7.059 950 
MB-11 .084 504 FSTOES. 2 


vibration mode was employed to measure damping in this 
research. 

A photograph of the equipment utilized for this 
analysis is included as Figure 8. The basic equipment 
configuration measured the transfer frequency response. The 
equipment schematic for those measurements is provided in 


Figure 6. 


@ee SIGNAL ANALYZER (S/A) & S/A ANALYSIS PROCEDURE 

A Scientific Atlanta SD380Z 2-channel signal analyzer 
(Ref. 39) was used to generate a two volt broadband random 
noise signal, which was amplified at adjustable gains by a MB 
Dynamics 2125MB power amplifier (Ref. 41). The amplified 


Signal was wired to drive a MB Dynamics PM-25 Vibramate 


So 


Exciter (Ref. 40). This electromagnetic shaker, which is 
cooled by low pressure air, provides the specimen excitation. 
The excitation was transmitted to the beam via a rod 
connected to the base of the beam clamp. The beam clamp 
assembly provides a 3.5 inch grip length on the beam, with 
the remainder of the beam free to vibrate. See Figure 3. The 
clamp jaws are reeeeeea such that the excitation rogdeaiene 
beam root, and the input sensing accelerometer (mounted atop 
the clamp) are vertically aligned. The system output 
accelerometer is mounted at the beam tip. (Ref. 27: p. 37 - 
Sis} ) 

ENDEVCO Model 2250A-10 integral electronics shear 
accelerometers were used to measure the transfer function 
(output/input excitation). These generate a voltage that is 
proportional to their respective acceleration amplitudes. 
Fach accelerometer was attached via a cable to an ENDEVCO 
Model 4416A signal conditioner. These signal conditioners 
provide a constant current source of power to the 
accelerometers, and also amplify the accelerometer output 
voltage by a factor of ten. The output voltages of the 
Signal conditioners were fed to seperate channels of the 
Signal analyzer. (Ref. 27: p. 42 - 43) 

The signal analyzer was programmed to display the 
material transfer function Trespenso On Tts  secrcem 


Specifically, output voltage signals from) tne acceleromeves 
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located at the beam root were fed into channel A, while 
signals from the one at the beam tip were led to channel C. 
The analyzer display depicted non-dimensional transfer 
moet ion amplitude in dbwalong the vertical axis, with 
frequency along the horizontal axis. 

All displays S/A for first modal responses of the beams 
listed in Table 2 were recorded on the Zenith computer hard 
disc, using the Signal Analyzer (S/A) Interface Program 
developed for this thesis. (See the program explanation 
mepeer in this report.) To assist with the computer 
processing of signal analyzer information, all analyzer 
displays that were compared as a group shared the same set-up 
page parameters and display screen coordinate dimensions. 
Further, all were produced with the MB Dynamics amplifier. at 
the same amplification setting. 

1. Signal Analyzer (S/A) Set-Up 

Eleven different set-up pages are required to 
program the signal analyzer for operation. Regarding some 
of the more important parameters listed in those set-up 
pages, the analyzer voltage signal to the MB exciter was set- 
at 2.0 volts; channel A input level at 0.1V, with channel C 
at 0.5V; 200 lines of resolution; and averaging set for a 
Weeeecarget count, using the Hanming weighting function 


method. 


ay 
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As Cronauer noted (Ref. 27: p. 63), selection of an 
analyzer signal greater than 2.0 volts to the exciter for a 
broadband signal type may be prone to uncontrolled amplitude 
fluctuations, producing. ef fon cous ies cma displays. 
Therefore, only 2.0 volt analyzer signals were used for this 
research. 

The 200 target count parameter meant that the 
analyzer averaged 200 different data samples to establish the 


displays used for this report. 


D. ZENG TH “COMPUTER 

Reference 35 describes the Zenith Z-150 Computer in 
detail. Briefly, it is an IBM XT cempatible mache 
employing the Microsoft Corp. MS-DOS Version 3 (series) 
operating system. (IBM is the registered trademark of 
International Business Machines Corp.) The computer 
configuration was modified as the following discussion 
describes for the purpose of this research. 

be Hendebisc 

A Seagate Corp. 30MB hard disc was installed in 

place of the second Zenith 5 1/4" floppy disc. The hard disc 
was installed according to the standard procedures given in 
reference 36. The hard disc was partitioned entirely under 
the MS-DOS format, and the computer was programmed to load 
the operating system from the hard disc root directory upon 


power-up. The S/A Interface Program, the Zenith BASICA 
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executive program, all analyzer data files, configuration 
files, etc. were located in a directory entitled "GPIB-PC". 
2. Interface Board & Connections . 
A National Instruments General Purpose Interface Bus 

(GPIB-PC2A) was installed in a vacant computer utility slot. 

a. The GPIB cable was led from the card, out the back of 
the computer, and to the bus connection on the Scientific 
Atlanta Signal Analyzer. The analyzer address was reset at 
its back panel switch station to 25. (Ref. 39, p. 8-1) 

b. A second GPIB cable was "piggybacked" from the analyzer 
bus connection to the Hewlett-Packard Graphics Plotter. This 
arrangement permitted the plotter to be run by either the 


computer or the analyzer, though this researcher operated the 


plotter entirely from computer files. The plotter address 
was reset using its switch panel to 30. (Ref. 38, p. 9-2 & 
3) 

Ie GPIB-PC CONFIGURATION PROGRAM 


GPIB-PC software general installation procedures are 
covered by pages 2-3 through 2-15 of reference 37. When the 
operating software for the GPIB-PC is first installed, the 
Semrrouration routine IBCONE must be run to enter equipment 
identification addresses and other operating parameters. For 
mas Gesearch, the interface board configuration program 


IBCONF was filed at the root directory on the hard disc. It 
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is menu driven,-and can be activated at the base directory by 
typing "IBCONF". The GPIB-PC board has the capability to 
service sixteen programmable instruments, as indicated by the 
first configuration page of IBCONF. FOr ehis peporee only 
the the first two GPIB-PC configuration pages were enacted; 
DEV 1 for the Signal Analyzer, and DEV 2 for the HP-plotter. 


The following parameters were entered for this research: 


Lys GPIB-PC INTERFACE BOARD SET UP PAGE 
primary GPIB address ae 
timeout setting sis 
EOS byte 0.0H 
terminate read on EOS yes 
set EOI with EOS on write no 
compar isonmongaes fd dite 
set EOI w/last byte of pemee yes 
GPIB-PC model PC2A 
board system control yes 
local lockout all devices yes 
disable auto serial poll yes 
high speed timing no 
interrupt jumper setting none 
base I/O address 02E1H 
DMA channel none 
internal clock 5 Miz 

Die GPIB-PC SET-UP PAGE for SIGNAL ANALYZER 
{DEV 1 specified as S/A} 
primary GPIB address Zo 
timeout setting Aes 
EOS byte OOH 
terminate read on EOS yes 
set EOI w/EOS on write no 
comparison on EOS Tae 


set EOI w/last byte of write yes 


on GPIB-PC SET-UP PAGE for HP-PLOTTER 
(DEV2 renamed HPPLTR} 
primary GPIB address 30 
secondary address none 
timeout setting va 
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EOS byte 00H 


terminate read on EOS). no 
set EOI w/EOS on write no 
comparison on EOS eed 


set EOI w/last byte of write no 


- 
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ITI. SIGNAL ANALYZER INTERFACE PROGRAM 


A. GENERAL DESCRIPTION 

The signal analyzer interface program written for this 
thesis is an initial attempt to create a esignie Program that 
will: (1) set up the Scientific Atlanta Signal Analyzer; (2) 
capture and store graphic data compiled by jehe analyzer; (3) 
and that will conduct initial analysis of the stored analyzer 
data. Although this thesis was primarily concerned with 
computer data acquisition and processing of information 
associated with vibration damping alloys, most segments of 
the interface program can be used with any analyzer 
individual graphic screen display -of a two dimensional (xX, Y) 
coordinate “funeelon. 

The interface program provides the additional capability 
of deciphering data produced by the signal analyzer into its 
constituent ASCII characters, and displaying stem 
interpretation on the screen and printer. In conjuncerem 
with its data storage feature, the program's ability to 
interpret the stored data can assist with the compositionmes 


other programs to satisfy additional analysis needs. 


aie OPERATING SYSTEM AND BASIC 
The Signal Analyzer Interface Program iS written in GW 
BASIC by Microsomes e@onpora rien: This BASIC language is 


functional within the Zenith DOS operating system, supplied 
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as standard software with Zenith Corporation machines 
purchased under existing GAO contracts. inporcantlyywechis 
operating-system and BASIC language are IBM-compatible, which 
eee@Eas additional er cabiiey for the interface utility 
routines. (IBM is a registered trademark of International 
Business Machines. ) 

Jes BASIC Language The program was written in BASIC 
for several reasons. Pesnnercial hardware and software were 
available for use with BASIC. Other languages such as 
FORTRAN, were also available, but initial evaluation 
Suggested their use would entail additional complexity. The 
fering curve for this researcher was much shorter, using 
BASIC, a language with which he was already familiar. Also a 
consideration, BASIC satisfied the anticipated speed and 
throughput requirements. 

Cc. INTERFACE BUS (GPIB-PC) and SOFTWARE 

The Signal Analyzer interface program relies upon a 
National Instruments General Purpose Interface Bus designed 
for IBM Personal Computers and compatibles. This interface 
bus, or GPIB-PC for short, is a commercially available 
electronics card that sockets into existing expansion slots 
in the microcomputer. (GPIB-PC is a registered trademark of 
National Instruments, Austin, Texas.) This card provides the 
signal interface necessary for computer-to-Signal Analyzer 
communications. The GPIB-PC is covered in greater detail in 


the equipment section of this thesis. 


43 


1. GPIB-PC Software 

From the programming standpoint, the GPIB=P@ mee 
supplied with software that enables direct communications 
using GW BASIC with programmable instruments like @ege 
Scientific Atlanta Signal Analyzer. In effect, the National 
Instruments GPIB-PC and its accompanying software interpret 
communications between the two instruments, the computer and 
the Signal eigen To enable this facility, the GPIB-PC 
software does require that additional statements and 
functions be added to the normal BASIC program to execute the 
interface board communications routines. 

For example, the beginning of the BASIC program 
<MCNFG.BAS>, lines #120 - 220 execute subroutines to operate 
the GPIB-PC board. Construction of these introdWepem, 
program lines is provided by the GPIB-PC software. These 
same lines appear in several of the Signal Analyzer interface 
sub-programs, and must be included within any BASIC program 
that communicates with the Signal Analyzer. 

As an example of the GPIB-PC functions added to the the 
BASIC language interpreter, IBWRT(variable, command) is a 
GPIB-PC function to write instructions to the Signal Analyzer 
(or other programmable instrument) via the interface board. 
The "variable" supplies the computer bus address for the 
analyzer, while the "command" supplies the operator desired 


instructions to be written to the analyzer. 
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Di HARD Dits.C 

The system used to construct this program was composed 
of a Zenith Z-150 microcomputer, purchased under an existing 
eeomeoncract, and suitable for shipboard use. It is an IBM- 
compatible XT-type machine, with a Zenith monochrome (green) 
high resolution.monitor. The system is described in greater 
detail in the equipment portion of this thesis. It is 
mentioned here because this system was modified to include a 
Seagate ST-238 Model 30MB hard disc. The interface program 
Measeintended to operate with a hard disc because the data 
files are large, and the hard disc operates much faster than 


Someloppy discs. 


PRIMARY PROGRAMMING FEATURES Subsequent lettered paragraphs 
under this heading describe some of the primary program 
features that are common to all the Signal Analyzer Interface 


Program utility sub-programs executed from the main menu. 


E. MENU DRIVEN 

The interface program is "Menu Driven," that is, the ten 
sub-programs that comprise the body of utility functions can 
be summoned for use from one main menu program. Once the 
operator-has initiated the GW BASIC <TM> program environment, 
one merely types <RUN "MENU"> to bring the interface program 
menu on the screen. When activated, the Main Options Menu 
resides at the hub of the ten utility routines listed by the 


menu. Selecting a menu option, or choice, calls the selected 
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sub-program into computer memory and exectutes it. At the 
conclusion of a sub-program, the menu is redisplayed on the 
computer screen. 

a. This structure was utilized because it was easier to 
write than one large program that would have attempted 
integration of all-the utility functions together. (Mame 
importantly, each sub-program was a learning experience for 
the writer and was used in turn to fashion the next utility 
Sub-program. Thus, the structure evolved sequentially which 
accounts for its current form. 

b; It is stipulated that the interface program could have 
been restructured, at least in part, to operate faster and 
more efficiently. However, the interface program is 
functional and due to its simple structure, the pragma 
hopefully will evolve under the scrutiny of subsequent users. 
Eee LINEAR DESIGN 

Each utility routine follows a linear design wherein 
the raw data is sequentially processed by successive loops 
and/or sequential minor routines. Tf the programs are 
examined (Appendix E), many functional segments can be seen 
to be delineated by REMARK statements, most of which are 
labelled as to purpose, such as: 

REM **x*xx*x*x No Existing File Error TLAD KKKKKKKKKKKKK 
Frequently, remark statments describe the logic used to 
construct the functional routines. For example, line #1840 


from the sub-program <GRDTA.BAS>: 


46 


REM The EoiontinG three integers institute a “pen down" 
fostruction. 

B%(1l1) = 15163 : B%(12) = 17488 : B%(13) = 15163 
These five digit integers comprise instructions that activate 
the Hewlett Packard plotter to lower its pen to paper. 
Though this linear design is uneconomical from a programming 
Peeamapoint, it Willi facilitate subsequent users in 
understanding the program logic and changing 1G as required 
for their purposes. 
G. INTEGER VARIABLES 

Two considerations underlie why integer variables and 
matrices were frequently employed within the BASIC programs. 
First, the commercial interface board used in the Zenith Z- 
150 computer used integer arrays to communicate data between 
the Signal Analyzer and the computer. Other communications 
algorithms are also available within the same GPIB <TM> 
software, but they were more difficult to utilize. Second, 
integer variables and arrays are more swiftly handled by the 
computer, which partially mitigates the linear program 
@esign. 
gic ARRAYS 

Throughout the interface program structure, one 
dimensional integer arrays are used preferentially. The 
maaays provided convenient “""Sspots" or locations for the 
Semlection of data aswit accumulated» along the linear pro- 


cessing path. It is hoped that these same arrays will make 
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int BOs ene for subsequent programmers to reprogram for their 
own needs because each array holds a particular type of data 
that is described within each segment's code, and by “thas 
Narrative report. For instance, line #160 of the program 
<SCRNDTA- BAS? Sceaces- 

REM A%(XXXXX) iS a matrix used to store signal analyzer 
graphic data from the designated disc file into the computer 
active memory - 

Stored on disc directly from the interface board in the 
computer, this graphic data was produced by the Signal Ana- 
lyzer, and is in five digit integer format, each integer 
representing two ASCII characters. When read from disc by 
<SCRNDTA.BAS>, this graphic data is stored in the matrix 
A%(XXXXX), each element of which is numbered from one to the 
end of the file. 

Similar usage of matrices is employed through all ten 
utility programs. If a subsequent user can discern what a 
matrix contains, he may well be able to modify the existing 
program to suit his current needs. 
tle ERROR TRAPS AND FILENAME EXTENSIONS 

Perhaps the most difficult task connected with writing 
these utility routines was construction of the error trapping 
sections. Several traps are common to all ten routines; they 
are summarized as: 

1. "No Existing Disc File" is a routine which captures an 
incorrect operator response to a program request for a 
disc filename, wherein the filename specified does not 


exist. The error trap, listed at the end of pertinent 
programs, provides a response "File not found; try 
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Meabo scm returtms the Operator to the original 
request for a filename. Often, the incorrect response 
is answered with the expletive "BEEP BEEP!", which no 
ene particularly cares to hear, but it gets one's 
SEecCnr Lon. 


IF-statements are used to capture less troublesome 
incorrect operator responses. For example, line #660 
in the program <FPLOT.BAS> reads: 


IF LEN(FILES) > 12 THEN 580 : REM Limit filename length 
to 12 characters. 


As it implies, this line checks the filename response 
to ensure that it is 12 characters or less (an IBM DOS 
convention), and sends program execution back to the 
original request if the answer provided is greater than 
twelve characters long. The operator is appropriately 
"BEEPED" and given another chance. 


To limit the required programming, and as this example 
illustrates, on-screen error messages are not provided 
for mistakes such as this. The BEEP signals a possible 
error, and confirmation is provided by reappearance of 
the incorrectly answered computer question. 


3. Filename extensions are used by the program to seg- 
regate different types of files. The three types 
recognized are: 


Peconic wDlA —--— Signal analyzer integer graphic data 
filename.cfg --- signal analyzer integer machine 
configurations (analyzer set-up 
LAS GUGEdons.) 
filename.xyc --- integer files containing graphic X and 


Y coordinates (that were decoded by 
the program <DAMPCALC.BAS> ) 


IF-statements are used here also to test that correct 
filename extensions have been applied by the operator. 
If not. the BEEP plus second chance response is enacted 
by the program. 


4. Undoubtedly, there are some operator responses that 
have not been anticipated that may "BOMB" the program. 
To guard against those, these instructions attempt to 
be detailed, and each utility sub-program called from 
the main menu provides banner instructions regarding 
that segment's intended use. Further, each computer 
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requested response provides short details describing 
the information sought from theweperator. Bi an error 
does occur that causes program execution to stop and 
display a BASIC language error message, the routine can 
be immediately re-run by typing the "F2" key. 
we THE “F9" FUNGTION KEY 
All ten utility programs include a program interrupt 
feature under the "F9" keyboard function key. Pressing the 
"P9" key during program operation clears the screen, and asks 
the operator whether he desires to continue, start the 
current program segment over, or exit to the main menu. Te 
this key is pressed when the computer is requesting 
information from the operator, the program interrupt will not 
occur until after the <“REGURN key Sismpuesscer Otherwise, 
the interrupt occurs immediately, and displays: 
"PROGRAM INTERRUPT... " 
"Type <RETURN> to resume this program section." 


"Type <KK> to Start this program Sseerien Cver.. 


"Type any other key + <RETURN> to exit to main menu." 


"> " 





This feature provides some flexibility for the program oper- 
ator, and permits changing menu choices even after a program 
segment has begun execution. 

It is worthy of note that, if a dise “ile is Sere, 
accessed when the "F9" key is pressed, that file may be left 
"OPEN" if the operator decides to access the main menu rather 


than continue execution of the current routine. TY ping 
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"CLOSE" from the command level in BASIC will ensure that all 
disc files are closed on the currently selected disc. 
ee SCREEN CONFIRMATION 

Even when an operator input is NOT required, these 
eeegrans all Contain numerous screen messages to advise the 
operator, so that it is readily apparent the program in use 
is functioning correctly. For example, when a disc file is 
loaded by {INTDTA.BAS}, the computer echoes a portion of the 
loaded disc file to the screen to confirm that the contents 
are as expected, and that the program is indeed operating. 
Maes approach prevents the possibility of the computer 
"HANGING" or locking up without such a mishap being evident 
to the operator. 
ive RESPONSES & <RETURN> 

All keyboard responses requested by the S/A Interface 
Program require that the <RETURN> key be pressed. A null 
response (an empty response) is accomplished by only pressing 


the <RETURN> key. 
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IV. RESULTS AND CONCLUSIONS 


A. DAMPING CAPACITY VS HEAT TREATMENT 

In general, the narrow range of heat treatments 
Pproducedys ine rarik, narrow ranges for specific damping 
capacity and damping coefficient. The Fe-Cr-Al beam samples 
exhibited a somewhat greater range of values, whereas the Fe- 
Cr-Mo beam samples were all quite closely grouped. The 
following table summarizes the Specific Damping Capacity 


(SDC) and Damping Coefficient (DC) values for the samples 








analyzed. 
TABLE 3 

Sample Heat Treatment SDC 

Alloy Number (Degrees Cent.) (%) DC 

Fe-Cr-Al AB-1 110607 FE 6220 4.95E-02 
AB-2 1100/FC 40.33 3.21E-02 
AB-4 lO S07 EC S26 4.21E-02 
AB-5 TeSo7 Fe 66.83 5.32E-02 
AB-7 1000/FC 66.34 5.28E-02 
AB-8 1000/FC 50.56 4.03E-02 
AB-10 950/FC 46.87 3.73E-02 
AB-11 950/FC 427.35 3.41H-02 

Fe-Cr-Mo MB-4 1050/FC 62.95 5 .01E-02 
MB-5 1O507 EC 60.24 4.79E-@2 
MB-7 1000/FC Siro 7 4.13E-02 
MB-8 1000/FC 63.66 5.078-02 
MB-10 950/FC 5S aS 5 4.26E-02 
MB-11 950/FC 55.69 4.43E-02 


i. Fe-CeAlSamptes 


Solution treatment of the Fe-Cr-Al samples in 
the 1100 to 950 degrees Centigrade range did not produce 
great disparity regarding damping capacity over this range. 


There is some slight optimization noticable in the 1000 - 
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1050 degree range from results for samples AB-7 and AB-5. 
SDC and DC noticeably decreased for both samples (AB-10 & AB- 
11) treated at 950 degrees Centigrade. 
Z. Fe=Cr-Mo Samples 
The heat treatment range from 1100 to 950 degrees 
Centrigrade produced an equally narrow range°“of SDC and DC 
values for the Fe-Cr-Mo beam samples. eneniae to the Fe-Cr- 
Al, the Fe-Cr-Mo samples (MB-10 & MB-11) exhibited a slight 
reduction in SDC and DC when treated at 950 degrees 
Centrigrade. 
fe) COMparison 
Values calculated for SDC ae DC were comparable for 
both alloys. The Fe-Cr-Mo appears to produce more consistent 
values, sample to sample, but that conclusion is probably 
premature, considering the small number of samples involved. 
meee obe/DC Correction Factors 
Values listed in Table 3 above were generated by 
<GRAPHXYC.BAS>. The SDC/DC correction factors were 2.6523 
for the Fe-Cr-Al samples and 2.01912 for the Fe-Cr-Mo. 
Samples AB-7 and MB-1l, respectively, were used Or the 
calculation of these factors. SDC values for these baseline 
samples calculated directly from the signal analyzer were: 


POU =) pees esi leone 66.3442% 
Mpa ee. ss 55.6947% 


Calculation of these factors is delineated in detail in 
Appendix B, specifically the program operating instructions 


for <DAMPCALC.BAS> and <GRAPHXYC.BAS>. 


Be INTERFACE PROGRAM RESULTS Appendices C and D eeneain 
all frequency response curves and computer print-outs ‘fen 
the analyzed samples. 

1. Appendix C: In addition to indinmdual ouapis [07 eae 
beam, there are two composite graphs combining frequency 
response curves for samples ({AB-1, AB-4, AB-7, AB-10} and 
{(MB-4, MB-7, MB-10} respectively. The individual sample 
curves were produced by <CPLTR.BAS>. The composite graphs 
were produced from <CPLTR.BAS> and <GRDTA.BAS>. 

2. Appendix D: SDC and DC computer calculated values 
included as program readouts in Appendix. D were generated by 
<GRAPHXYC.BAS>. That sub-program was used vice 
<DAMPCALC.BAS> because it contains a curve smoothing routine - 
that reduces inaccuracies due to "jagged" or noisy signal 


analyzer curves. 


Ce IMAGING FERROMAGNETIC DOMAINS 

When this report was prepared, it was not possible to 
image the ferromagnetic domain walls using the transmission 
electron microscope at the U. S. Naval Postgraduate Schools 
The lower lens magnetic field extended through the specimen 
and oriented the domain walls such that the electron beam was 


not sufficiently deflected to produce an image. 
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APPENDIX A 


METALLURGICAL ANALYSIS REPORTS 


J 


REPRODUCED AT GOVERNMENT EXPENSE 


LABORATORY CERTIFICATE 


Anamet Laboratories, Inc. 


3400 INVESTMENT BOULEVARO «© HAYWARD, CALIFORNIA 94545-3811 © (415) 387-3811 





APPENDIX fA 


Laboratory Number: 587.071 
Purchase Order: N62271-87-M=-2087 
Requisition No: N62271-7117-5066 
Date Submitted: May 8, 1987 

Date Reported: May 18, 1987 


Naval Postgraduate School & &} «#------ CAPTION ------- 
Supply Officer - N62271 P aan 
Attn: Dr. J. Perkins/Georgia Gooder STC orton en 
Receiving Officer Bldg. 349 unknown by the laboratory at 
Monterey, CA 93943 ; the time when analysis was 





; Sample #460 was the Fe-Cr-Al 
s alloy. ° 


Two metal coupons were submitted for chemical analysis. The samples 
were identified as follows: 287 and 460. 


SUBJECT ~ 








is 
rae ECM Mo fia Ce OL 
Mark: 25 460 
Aluminum (Al) 0:01 2.99 
Carbon (C) 0.009 0.002 
Chromium Cer) 11287 11.82 
Copper CCu) “O20: <0.01 
Manganese (Mn) <0.01 <On01 
Molybdenum (Mo) 2.93 C207 
Niekel (Ni) <0.01 <0.01 
Phosphorus (P) O.007 0.007 
Silicon (Si) <O501 <O7cn 
Sulfur cS) 07005 O20U5 
Titanium (Ti) <0.01 <0 00 
Vanadium (V) <0.01 <0:.01 


This testing was performed in accordance with the purchase order. 





Submitted by; 


C.c, tr... 


E. A. Foreman 
Se/7onS eo. Manager, Quality Control 
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APPENDIX B 


SIGNAL ANALYZER PROGRAM DESCRIPTION 
Ute tY SECMENETS I= 10 


A. MAIN MENU The Main Menu program is entitled (MENU.BAS}, 
and is located in the hard disc directory <GPIB-PC>. It is 
activated from the GW BASIC environment by typing "RUN MENU". 
In response to that command, the following banner menu 
appears: 


KHEKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKKKKKKKKKKKE 


x SIGNAL ANALYZER INTERFACE PROGRAM * 
* MAIN OPTIONS MENU «x 
*x *x 
x @ieNrG.BAS> ......... MID 5.5 05 <8 1 * 
ax MEO DE BASS ....60c0 00006 or 2 * 
* x GeePLOT.BAS> .....-2.00-0.- ee 3 * 
x MEMEO NS? so c.aayneleasauiclessssses.- 4 * 
* BME TA BAS> . 00.0.0 c ccc ccc ee eee 5 x 
# x MOREA. BAS> .....000cccdieccssescceee 6 x 
* MEORNDPABAS> ..0..0ccccrccecccccees 7 x 
BMC ITTERPLOT.BAS> ......00ccccccccceecs g * 
* x BETIPGALC BAS) ...000.00ccccescccces 9 “* 
x MEREPHUXYC.BAS> ....cccccc ccc cccceees 10 * 
* Baer THIS MENU ......0.cccceceee- ANY OTHER KEY * x 
*x xo 
x CHOICE? —__ * 
*x *x 
~ x s *x 
x PERKINS/PATCH MASTERS THESIS {NAVPGSCOL}  - * 
* x COPYRIGHT AUGUST 20, 1987 UNITED STATES NAVY * x 


KEKKKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKK 


mae Dlinking cursor by "CHOICE" awaits the operator's 
selection, an integer from one to ten, or "ANY OTHER KEY" plus 
RETURN>. These displayed options are the only possible 
‘esponses recognized by the <MENU.BAS> program. 


Fach numbered choice plus <RETURN> activates a separate sub- 
rogram, all of which are explained in subsequent paragraphs. 
‘Yping any other key plus <RETURN> exits the Signal Analyzer 
nterface Program, but does not remove the menu from the computer 
meeey. Thus, typing "RUN" or pressing the F2 key will redisplay 
he main menu. 


MACHINE CONFIGURATION {MCNFG.BAS} The machine configuration 
rogram is located under option #1 on the main menu. This BASIC 
‘ftogram sets up the Signal Analyzer (S/A), or it stores the 
urrent Signal Analyzer configuration (set-up) on hard disc. 


ieee celecting option #1 from the main menu and pressing 


6L 


<RETURN> displays the following banner instruction. 


Kk*kK*KAK*KX Machine Configuration Program <MCNFG.BAS> **x*kxxkx*kxxkxkx 

xx This program can store signal analyzer machine configuration ** 
**x codes obtained originally from the analyzer itself. The * x 
xx program can also set up the signal analyzer, using any *x 
xx configuration data files previously saved to computer disc. ** 
KEKE KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKE KKK KKK KKKKKKKEKKKKKKK 
xx Ensure that the Signal Analyzer is connected and ON xx 


xx and that its GPIB address is 25. ** 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKEKEEKX 


Type 1 to obtain & store the current configuration. 
Type 2 to set up “analyzer witth “an existing GCemelg castle. ; 


lO 2... ee 
2. Signal Analyzer (S/A) requirements to use the Interface 
Program machine configuration routine are relatively simple. 


a. The Scientific American Signal Analyzer (Model SD 380Z) 
operating manual provides instructions to set the machine interface 
buss address to 25. Selecting setup page #8 from the Signal Analyzer 
front control panel produces the IEEE COMMUNICATIONS setup page, the 
first entuy of which is the Signal Analyzer address opr ian Note 
that changing this address to 25 disables the Signal Analyzers 
ability to operate the Hewlett Packard graphic plotter. However, the 
Signal Analyzer Interface Program can operate the plotter instead. 


(1) The Signal Analyzer operating manual also 
describes how to set switches in the back of the machine which fix 
its address to the chosen value each time the machine is turned on. 
This is a more convenient method, and the recommended method for use 
with the Interface Program. Setup page #8 preserves the operator's 
option to reset the Signal Analyzer address as required after power 
is applied. 


3. With the Signal Analyzer turned on and its address correctly 
set, (MCNFG.BAS} option 1 will store the current Signal Analyzer 
machine configuration (all eleven set-up pages, plus screen format) 
LO Naya dise- 


ee In response to an option 1 selection, the program 
obtains the Signal Analyzer configuration data in integer format, 
displays a sample of the data to the screen, confirming successful 
communications, and then requests... 


"What file name for disc storage?" 
"Note: The file designation must be cfg (ie); filename.cfg" 
"Type <RETURN> to bypass disc storage?" 


"Pilename. cig 2.5. = 


Filenames may be anything the operator desires, except 
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shat the file designation must be "CFG", and filename lengths must be 
welve characters or less, including the period and designation. The 
fFG" extension is used by the Interface Program to keep files 
segregated regarding purpose, and to prevent erroneous selection of 
configuration files by other program segments. 


sy Dang <RETURN> only bypasses the file storage 
function, and brings the following prompt to the screen: 


miype Yes to run.program again. “" ? 
ny response beginning in “"Y¥" (and merely "“Y" itself) will redisplay 
che {MCNFG.BAS} banner and provide another opportunity to execute 
shis Interface Program segment. 


Moe lecting option 2 will display the Signal Analyzer 
sonfiguration files previously stored to hard disc. The operator 
Nill be asked: : 

“What file name for retrieval from disc?" 
"Note: The file designation must be cfg (ie); filename.cfg " ? 


Input of a correct filename causes the Interface Program to 
Sbtain the disc file, display a sample of its contents, then request: 


"Type yes to set up signal analyzer using this file. " ? 


Again, any response beginning with "Y" will send the selected 
configuration data to the Signal Analyzer. Any other response will 
bypass the set-up function. 


Following transmission of the configuration data to the 
Signal Analyzer, the prompt appears: 


"Type KK + <RETURN> to reset using same file. "? 


[his prompt permits retransmission of the same set-up parameters to 
the Signal Analyzer if, for some reason, the prior transmission was 
et received. Any response different than "KK" will bypass this 
wecion. 





a. Note that if the Signal Analyzer is currently 
lisplaying a set-up page menu, it will not be apparent from the 
inalyzer screen that any configuration instructions were received 
mem the computer. However, changing the Analyzer screen display to 
jJraphics will show the computer transmitted graphic set-up format, 
ind changing back to the Analyzer set-up page will display the 
-ransmitted set-up parameters, confirming that the computer file was 
-ransmitted. 


| fee A response not equal to "1" or “2" will redisplay the 
MCNFG.BAS} banner. However, pressing the "F9" key and <RETURN> will 
Meplay mid-program exit instructions as discussed in the prior 
sENERAL DESCRIPTION. 
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6. Following completion,o£f option “1" or “2", the openatera 
asked: 


"Type yes to YUN Preogrammacgal nae 4 


Any response beginning with "Yy" will rerun the {MCNFG.BAS} sub- 
program. Any other response (except for F9 ) will exit this section 
and display the main menu program {MENU.BAS}. 


Ss FILE PLOT {FPLOT.BAS} This sub-program files Signal Analyzer 
(S/A) screen images as integer hard disc files that are named by the 
operator. Any Signal Analyzer graphic screen plot can be filed. 


1. Selection of main menu option 2 produces the following 
computer screen display: 


RO KKK = =PROGRAM <FPLOT.BAS>  *®®® RR RK KKK KK KK 


x* This program files signal analyzer screen images in disc * x 
xx files named by the operator. Each analyzer screen image is ** 
xx stored as an integer array. Each element of the integer * x 
** array represents two ASCII code characters from the HP * 
xx plotter language. (Ref: HP Plotter Prog. Manual, pg. 1-8 & 9)** 
xx Please ensure that the signal analyzer is turned on and * x 
xx that it's GPIB address is twenty-five (25). * x 
KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK 
** NOTE: Use <MCNFG.BAS> to store Signal Analyzer machine xx 
xk configuration files identified as ''filename.cfg'' * x 


KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KE KKKKKKKK 


"What filename do you wish to specify?" 
"Note: File designations must be dta (i.e.); filename.dta " 


"Type your filename.dta " ? 


A filename response with a designation of "DTA" will cause the 
routine to obtain the Signal Analyzer (S/A) screen display 
information, display sample integer data to the computer screen, then 
display confirmation that the disc filename specified contains a 
certain number of elements and has been closed. 


2. Relevant considerations are: 

a. Dual Signal Analyzer screen displays may be filed, but 
they will not be correctly processed by the S/A Interface sub- 
programs (GRDTA.BAS} or {(DAMPCALC.BAS}. 

b. Regardless of what image or menu/set-up page is 
displayed on the S/A screen, this program obtains whatever is in the 
graphic display memory of the analyzer. 


c. Each disc file of a S/A graphic seseen Jeena 
about 2400 to 4600 five digit integer elements. (FPLOT.BAS} does 
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imit the file lengths to the minimum possible, using the integer 
fermat. 

: 

) 3. The Machine Configuration sub-program {MCNFG.BAS} should 
@eeeeaeco tile S/A configuration data. (See paragraph B 
ove. ) 

| 


’ PRINTER PROGRAM {PRPLOT.BAS} Selection of option #3 from the 


tain menu executes the {PRPLOT.BAS} sub-program. This routine sends 
Pe contents of a GPIB-PC integer disc file to the printer, while 
isplaying the same contents to the computer screen. The sub-program 
yill print the contents of any integer disc file containing less than 


0,000 elements. However, it was specifically designed to print the 
merlowing file types: 


* filename.DTA ... Integer data files holding Signal Analyzer 
graphic screen displays 


F x filename.CFG ... Integer data files holding Signal Analyzer 
| machine configurations 


——mentLenane.xyc ... Integer data files holding the X & Y coord- 
| inates (in HP-plotter terms) of Signal 
Analyzer graphic screen displays 


1. Main menu option #3 causes the following instructions banner 
70 be displayed: 


KAKKKKKAKAAKKKKKK Program Name <PRPLOT.BAS> **XKKKKKKKKKKKKKKKKKKKK 
*x This program prints the contents of a GPIB disc file on the ** 
xx line printer. The integer disc file is printed in the same ** 
xx format in which it was stored. Any integer disc file * x 


xx containing less than 10000 integer elements can be printed. ** 
KRREKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKK 


merype <RETURN> to continue... " 


| Typing <RETURN> clears the screen, and displays the current 
MKisting disc files of the type described above. Further, the 
iperator is asked: 


“What filename?" 

"Please include a file designation (i.e.); filename.XxXx " 
Meewnere XXX is the designation." 

"[----NON-INTEGER files will not correctly load. ----] 


"Filename.xxx " ? 


a. An incorrect filetype response {such as BASIC 
FTilename.BAS), or EXECUTIVE (filename.EXE)} will cause the 
nstructions banner to be redisplayed, providing the operator another 
hance to correctly respond. 


O15 


b. A correct filetype response will load the file from 
hard disc and send its contents to the printer and computer screen. 


Da If the operator does not desire the entire file contents, 
typing the "F9" function key will interrupt the routine, and display 
the mid-program exit options. The printer, however, may contain data 
in its printer buffer, so several more pages may be typed to paper 
unless the printer is turned off. 


a. Note; turning the printer off while {PRPHOT BAS eas 
operating MAY cause the program to "HANG"; that is, the computer may 
lock up. Turning the printer back on usually clears this»~cecendiviea 
This condition does not occur when the "F9" function key exit (operon 
is enacted. - 


Dr If the printer is never turned on and (PRPLOT.BAS} is 
executed, the program only displays file contents to the computer 
screen. 


ee After printing the contents of a disc file, {PRPLOT.BAS} 
will display the prompt: 


"Type yes to print another file " ? 


Any operator response beginning with "Y" will redisplay the beginning 
instructions banner for {PRPLOT.BAS}. Any other answer will send the 
operator to the main menu. 


E. COMPUTER PLOTTER (CPLTR.BAS} This S/A Interface sub-program 
loads the contents of hard disc graphic files created by ({FPLOT.BAS} 
and produces a hard-copy graph, using the Hewlett Packard plotter. 


1. Selection of main menu option 4.displays the banner 
instructaons:: 


KKKKKKKKKKKKK Program Computer Plotter <CPLTR.BAS> *x*xKxKKKAKAKKKX 
x* This program uses the HP-plotter to draw a graph using data xx 
xx from a computer disc file selected by the operator. The file ** 


** chosen must contain an image from the Scientific Atlanta *x* 
** signal analyzer that was saved to disc in integer format. * x 
xx The file designation must be ({.dta}, (i.e.) filename.dta * x 
xx Please ensure that the plotter is connected and turned on. * x 


KRKKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKKKKKKK 
"Type <RETURN> to continue... " 

Pressing the <RETURN> key clears the screen and displays: 
“What file name Contains yeur Gace ni om 

Upon entry of a valid filename, the (CPLTR.BAS} routine responds: 
"Loading disc file “;FILES;" ... Please@vale ae 


Medea dete tetete che ty tet ote ate 
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eee ttt++ttttt+++tt+ 
Nhen the file is loaded into the computer, the program advises: 
"Plotting the disc file (filename.DTA)" 


2. Upon completion of the hard-copy graph, {CPLTR.BAS} advises 
she number of instruction bytes written (transmitted) to the plotter, 
mad the plotter status code, according to Table 4.1 of the National 
[Instruments GPIB-PC Operating Manual. 


3. At the conclusion of the aforementioned operations, 
PoPLTR.BAS} exhibits the prompt: 


Biyecs yes to run this program again." 
"Type K to print the same disc file again." ? 


a. The "K" option makes it possible to print numerous 
metes Of the same graph before restoring the computer memory erases 
mee Graphic instructions. 


b. Any input beginning with "Y" starts (CPLTR.BAS} over. 


c. Any other response exits to the main menu. 


4. The only preparations required for the Hewlett Packard 7470A 
29lotter are: (1) load a pen into the left pen recepticle, (2) 
Zesition the paper against the loading stop, (3) and turn on the 
slotter. 


| a. Of course, these preparations must be repeated for each 
new graphic image plotted. And, it is assumed that the GPIB-PC 
EEE interface configuration program has been configured as described 
in the Equipment Section of this report. 


". INTERPRET DATA ({INTDTA.BAS} This S/A Interface sub-program 
converts the integer contents of a GPIB-PC disc file into ASCII 
characters for operator interpretation. The converted code is 
jisplayed to the screen as well as printed out by the line printer. 


1. Signal Analyzer (S/A) graphic screen displays, when decoded, 
ire written in Hewlett Packard graphic plotter language. The 
[P-7470A Graphics Plotter Interfacing and Programming Manual contains 
‘he syntax of the HP plotter language. 





2. Signal Analyzer machine configuration files, when decoded, 
ire written in code unique to the Scientific Atlanta Signal Analyzer, 
fodel SD380Z. The Scientific Atlanta S/A Operating Manual, Appendix 
mecOntains the syntax for this code. 


3. Selecting option 5 on the main menu will execute the 


BYIDTA.BAS} sub-program, which will display the following 
nstructions banner: 
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KKKKKKKKKKKKKKKKKKXPrOgram Name <INTDTA.BAS> KRRKKKKKKKKKKKKKKKKKK 
xx This program converts integer contents of a GPIB disc file ** 
** to ASCII characters for interpretation. The converted code ** 
xx is displayed on the screen and output to the line printer. * x 
xx (Non-integer files won't load.) {Interpretation of output: ** 
xx Plotter language is explained in HP Plotter Prog. Manual ** 
xk & Signal Analyzer codes in Sci. Atlanta Operating Manual.} ** 
KKEKKKKKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKKKKKK 
xk NOTE: Type F9 to interrupt program printing operation if the ** 


xx entire decoded file is not desired from the line printer. * x 
KKKEKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KK KK KKK KKK KKKKKKKKK 


"Type <RETURN> to continue... " 





a. Pressing the <RETURN> key clears the screen and 
displays existing files in the disc directory, followed by the 
prompt: 


"What filename? " 
"Please include a file designation (i.e.); filename.xxx " 
"where xxx is the designation (BAS, BAT, COM or 

EAE are invalid). * 


"PFilename.xxx" ? 
A correct filename will cause the loading of that file, and display 
of a portion of its integer contents. Then, {INTDTA. BAS ewe 
interpret the file contents and output its results»to "the ceompu@er 
screen, as well as to the printer. 
b. {INTDTA.BAS} output has the following format: (example) 


53216 43878 21342 56564 ; ; PA3400 
{[--- GPIB INTEGERS ---] [= ASCII CODE =] 


Four integers are followed by their respective interpretations in 
ASCII code, listed in the same order as the parent integers. 


(1) The integer coding algorithm for this sub-program 
and all others in the S/A Interface Program as well is: 


Integer Integer ASCII Characters 


17488 15163 PD >; ; 
where ... BB = INT(17488/256) and AA = 17488 - (BB * 256) 
P = CHRS(AA) and OD = CHRS$(BB) 


DD = INT(15163/256) and CC = 15163 - (DD * 256) 
> = CHRS(CC) and ; = CHRS(DD) 


i Integer file types other than filename.DTA or 
filename.CFG may be loaded by the program, but their interpretation 
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mee robably not yield any useful information, unless they ‘were 
roduced by other Signal Analyzer resident software. 


4. An incorrect or non-existent filename will trigger the 
edisplay of the ({INTDTA.BAS} instructions banner, providing the 
perator another chance to input correct information. 


S. Operation of this sub-program is similar to {PRPLOT.BAS} in 
mat the operator may use the "F9" program interrupt key to abort its 
utput if the entire interpreted file is not desired. As for that 
mera, curning the printer OFF during output operations may make 
me computer system "HANG" , that is, lock up. Turning the printer 
mewoleusmally clears this condition. If the "“F9" interrupt is 
sed, this malfunction should not occur. 


6. After selected disc files are interpreted and printed, 
INTDTA.BAS} displays the prompt: 


"Type yes to print another file" ? 


SecOr all the S/A Interface sub-programs, this prompt will accept 
my response beginning in "Y" as an affirmative answer, and will 
aturn execution to the {INTDTA.BAS} instructions banner. At that 
ioint, the operator has an additional opportunity to interpret 
mother disc file. Any other response will exit this sub-program and 
eturn the main menu to the screen. 


|. GRAPH DATA {GRDTA.BAS} Comparison of amplitude verses frequency 
esponse for several samples can be conducted using this sub-program. 
SRDTA.BAS} loads the contents of a GPIB-PC disc file; identifies the 
mrtion of that file containing just the graphic curve; then plots 
me curve only, using the Hewlett Packard plotter. Thus, if 
Sete) 1S first used to draw the entire grid background and the 
irst curve, {GRDTA.BAS} can add additional curves (without their 
2spective coordinate grids) for direct comparison. Of course, all 
Jrves displayed together must have originated from S/A screen 
isplays with common coordinate grids. 







, 1. Main menu option 6 will call the following {GRDTA.BAS} 
astructions banner to the computer screen: 
| 


KAKKKKKKKKKKKKKKK Program <GRDTA.BAS> *X*KKKKK KKK KKK KKK KKK KKK EK KK KK 


* This program loads the contents of a designated GPIB disc file ** 
* containing integer data into the computer; identifies the file ** 
* graphic data section, then plots that disc file graphic data * x 
using the Hewlett Packard plotter. This program can be used x 
* to plot several signal analyzer graphic displays on the same xk 


§ page, providing direct comparison of different sample results. ** 
KK KK KK KKK KKK KKK KK KKK KKK KE KKK KR KKK KK KKK KK KK KKK KKK KK KK KK KOK KKK KK 





Meee. Curves plotted together on the same plotter display ao 
iS moourd all have originated from equivalent coordinate scales Sts 
** when they initially were displayed on the Signal Analyzer. xx 


PERK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKKKKK 
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"Type <RETURN2. ©O COonEinue. 2a: : 
Pressing the <RETURN> key will clear the screen, display the current 
graphic data filles Wend requese. 


"What file name contains your data?" 
"File designation must be dta (ie); filename.dta " 
"Note: File desig's <EXE>, <BAS>, <BAT> & <COM> will not Toad 


"PFilename.dta ..." ? 


2. Entering a valid- filename will start the {GRDTA.BAS} sub- 
program execution. As the program operates, it will exhibit screen 
messages describing its operational stages. At the point where the 
selected graph is plotted, the routine displays the screen message: 


"Plotting the selected graphic data... " 


"Calling IBWRLE (83 (mamma)... 
"The interface beardeiumetion to plot Cae davai. 


This message refers to the GPIB-PC computer interface board and its 
software function IBWRTI ( ) that outputs the graphic data (stored 
in B%¥(matrix)) to the HP-plotter. i 


3. At the conclusion of the plotting operation, the routine 
{GRDTA.BAS} displays the location within the selected file of the 
Grapavew@entoriaeton: The index numbers of the integers containing 


the start and end of the graphic curve are shown on the computer 
screen by the prompt: 


"Starting integer # =" (stare "Ending integer # = " (ending 
index) index ) 


The numbers provided begin with the first integer of the disc sumer 
- 4. The following prompt is also displayed at this time: 


"Type <KK> to RE-PLOT the same graph." 
"(Reposition graph paper to origin for a re-plot.)" 


"Type yes to run the program again’ 

a. As it indicates, a.response of <KK> will replot the 
same graphic information. Reposition the paper to its top edge and 
the pen to the left side of the plotter (HP Plotter Op. Manual, 
position Pl) before this operation occurs or an unwanted line will 
result when the pen is drawn backwards across the page. 


b. An entry of <YES> or any entry starting with "YY" wie 


restart {GRDTA.BAS} by clearing the screen and displaying the 
Starting instructions banner. 
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Seay soumer entry will exit this sub-program and return 
he operator to the main menu. 


SCREEN DATA {SCRNDTA.BAS} This program interprets and displays 
me contents of an integer GPIB-PC disc file on the computer screen. 
meerovides the additional facility of being able to select at will 
he portions desired for interpretation and display. The operator 
an move about within the data file contents as necessary to examine 
hatever portion is required. Since the entire disc file is loaded 
mcO Computer RAM, the routine is fairly rapid once the disc file has 
een loaded. 


ne Selecting main menu option 7 activates the {(SCRNDTA.BAS} 
ub-program. The following instructions banner is shown on the 
emputer screen: 


AAKKKKAAKK*KX Program to display disc file <SCRNDTA.BAS> ***xx*kkkx*x 
xx This program loads the contents of a designated GPIB disc file ** 


*x containing integer data into the computer and then displays xx 
xx the contents and its decoded ASCII characters for analysis. xx 
xx Note: File desig's can not be <BAT>, <BAS>, <EXE> or <COM>. * x 


KKEKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKKKKKK 


meype <RETURN> to continue... " ? 





1. Typing <RETURN> clears the screen and exhibits the prompt: 
"What file name contains your data" ? 


correct filename entry will cause the designated file to be loaded 
nto computer memory. An incorrect or non-existent filename will 
rigger redisplay of the instructions banner. 


2. When the disc file is successfully input to the computer, 
he prompt occurs: 


"Disc file " <filename> "is loaded into active memory ..." 


Seeeronace che number of the starting byte... " ?_ 
Mmemarul that integer disc files containing graphic data are 
isproximately 3600 - 8200 integer elements long, enter the integer 
dex number of the desired starting point. The program will request 
je number again if an incorrect value outside the file boundaries is 
‘ttempted. If a character value is entered, the BASIC operating 
mecem requests re-entry. 


3. After selection of the starting integer value, the next 
\compt is: 
"Designate the number of the ending byte... " ? 


Ne same type of conditions apply here as for the starting index 
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number. (SCRNDTA.BAS} will request the entry again if the stipulated 
integer number is outside the file boundaries, and also if the number 
chosen is negative or less than the chosen starting index. 


4. With the starting and ending indexes chosen, (SCRNDTA.BAS} 
locates the designated information, interprets it, and prints to the 
screen: 


"Your chosen data bytesmeenrarn. 


"Byte # Byte # Integer Integer ASCII Characters " 
2 


1 L235 Liss eee 

3 4 12345 i235 316 900 0 

5 6 12588 12844 pee ee: 
i, 8 lesig tu 17467 5. SagwD 
9 (eRe. ) 


The numbers displayed here are examples of how the interpreted 
results appear. The computer screen fills with nineteen lines of 
information, then requests that <RETURN> be pressed to continue with 
the next screen. This method permits the operator to step through 
the displayed information at a readable pace. 


a. If the "F9" interrupt key is pressed, the operator may 
choose to continue with the current file; examine another disc file; 
or exit to the main menu. 


5. When all chosen information has been interpreted to the 
screen, the following prompt appears: 


"Type yes to look at other data bytes..." ? 
At this point, other sections of the file held in computer memory may 
be examined. This feature permits the operator the flexibility To 
move about within the chosen file. 


6. Entry of <RETURN> or any key plus <RETURN> activates the 
PEOMpE: 


"Graphic file contained " <number> " total bytes of data.” 


"Type yes to examine another disc file... " ? 
An affirmative reply will re-exhibit the (SCRNDTA.BAS} instructions 
banner, at which time the operator may press <RETURN> and select 
another file for examination. Any other response not starting with 
"Y" will return execution to the main menu. 


7. During operation of the (SCRNDTA.BAS} routine, when a hard 
copy is desired of information shown on the screen, the <PrtSc> key 
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an be used to send it to the printer. Also, <Ctrl><PrtSc> will send 
ir sereened information to the printer, if desired. Typing 
Ctrl><PrtSc> again releases this selection. 


ITERATIVE PLOT {ITERPLOT.BAS} With this S/A Interface sub- 


Bogram, any chosen portion of an integer graphic file may be drawn 
ith the HP-plotter. {ITERPLOT.BAS} loads the disc file, requests 
dentification of desired sections from the operator, then plots the 
hosen information. During development of the Signal Analyzer 
nterface Program, this routine was used to gain necessary insight 
nto the construction of graphic data from the analyzer. 


ioe ration of {ITEHERPLOT.BAS} is very similar to 


SCRNDTA.BAS}. Information requested from the operator, and the 
rogram screen prompts requesting that information are similar. 
herefore, explanations listed in this section are appropriately 
bbreviated where clarity is not compromised. 


2. Choosing entry 8 from the main menu brings the following 


astructions banner to the screen: 


KKKKKKKKAKKKAKEKKKK Program <ITERPLOT.BAS> **XXKKKKKKKKKAEK KKK KK KKK 


*x Program to selectively plot data from an operator desig'd ** 


**k disc file. This program runs the HP-plotter to draw a xx 
** graph using designated portions of graphic data from a xx 
** disc file that was originally obtained from the Scientific ** 
** Atlanta signal analyzer screen display by <FPLOT.BAS>. xx 


KEKE KKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKKKKKKKKKKKKK 


peype <RETURN> to continue... " ? 


Qe <RETURN> key causes display of the request: 


: 


’ 


eegere GQisc file do you wish to plot? " 
toee. File designation must be dta (i.e.) filename.dta " 


"What filename.dta 2 


3. Subsequent to selection of the disc file and its input to the 


(mputer, the following message appears: 


| 
: 


}; 
ie integer graphic data file contain scaling and plotter pen posi- 
-Oning instructions. This screen input requests the operator to 
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"Note: The first several data bytes from the disc file contain 
@eapnic scale and pen positioning instructions. Thus, you need 
at least the first ten bytes to produce a readable graphic 
segment on the HP plotter." 


"Designate the number of bytes you wish to use from the 
beginning of the disc file {scale, border, etc.} " 


? e 


the above instructions imply, the first eight to twelve elements of 


es 


designate how many of tthe initial file elements he wishes to use. A 
zero or null input is accepted; however, the subsequent plotter image 
may not be discernable without the omitted scaling instructions. 


a. Negative values and those greater than the original file 
length will be rejected, and the above prompt redisplayed. 


4. The next screen message is: 
"Designate the starting byte for the Graphic data...) a 
Followed by: . 


"Designate the ending byte for the graphic data..." ? 


Upon completion of these messages, the computer program advises: 
"Plotting the rearranged data... " 


At this time, the selected file sections are drawn by the HP-plotter. 
Since key elements of the plotter instruetions may Nave been Cama 
by the operator's choices, the plotter image may be confused. The 
utility, however, of this program is that it provides graphic illus- 
tration of the composition of graphic files produced by the Signal 
Analyzer. 


5. When the plotter completes its operations, the computer 
screen states: 


"plotter statuses...” {mUnieer) 
"Type K + <RETURN> to plot the same graph. " 


"Type I + <RETURN> to select and plot different portions" 
- of the same graph. " 


"Type <YES> + <RETURN> to select another disc file." 


"Type <RETURN> to exit to main menu. " ? 

a. Plotter status is a GPIB-PC interface board code, listed 
in Table 4.1 of the National Instruments GPIB-PC Operating Manual . ike 
is useful as a programming tool. 


b. The remaining screen messages provide the opportunities 
to re-plot the same information; select different portions of the same 
file, now resident in the computer memory; select another disc file 
for ({ITERPLOT.BAS} to process; Or EO EXit €o thesmarnemenun 


J. DAMPING CALCULATION {(DAMPCALC.BAS} This sub-program is the long- 
est and longest running of the Signal Analyzer (S/A) Interface Program 
routines. It combines many of the features from previously discussed 
sub-programs. It also deciphers the X and Y coordinates from within 


74 





m_eevogmal Analyzer single graphic image file. From those 
oordinates, (DAMPCALC.BAS} also calculates the Specific Damping Capa- 
mee oDC) and Damping Coefficient (DC). 


1. The computer calculated values for SDC and DC are relevant 
‘or nodal frequency curves of amplitude verses frequency. 


2. <DAMPCALC.BAS.> will correctly decipher and store the integer 
- and Y coordinates from any single S/A curve. However, it was de- 
igned for amplitude verses frequency curves with a single maximum, so 
‘ts SDC and DC calculations will not produce meaningful results for 
other curve shapes. The sub-program should, nevertheless, operate 
sithout program fault on other curve shapes. 
| 3. Since the analyzer produces somewhat "jagged" curve shapes, 
epending on its configuration and the material tested, SDC and DC 
‘results form <DAMPCALC.BAS> may be influenced by such irregularities. 
GRAPHXYC.BAS> employs a curve smoothing routine to reduce the effect 
if such jagged curves. 

! 

4. The deciperhered X and Y coordinates are in terms of the 
vewlett-Packard graphic plotter scale. With sufficient knowledge of 
he original graph, these coordinates can be interpreted to other 
oordinate scales. In any event, the coordinates produced by 
DAMPCALC.BAS} accurately represent the original Signal Analyzer. dis- 
flay, the curve portion of which can be reproduced on the computer by 
SerrdnyC.BAS} (Main Menu selection 10). 


5. ‘Main menu selection 9 calls the following banner to the 
omputer screen: 


RK A IO Program <DAMPCALC. BAS > * % % %% 1% 1 1 KK KK AK 
‘* This program loads the integer contents of a designated GPIB * 
* disc file into the computer; identifies the file graphic data ** 


* section; then calculates the Specific Damping Capacity (SDC) xx 
* and the Damping Coefficient (DC) for the selected data file. * x 
* SDC & DC are calculated in absolute HP-plotter coord terms * x 
* and may vary some from Signal Analyzer values. This program * x 
* will also store the S/A graphic XY-coordinates as absolute * x 
memP—-plotter integer magnitudes, if desired. (The program * x 
Sees oRAPHXYC.BAS> can display stored disc file graphic data on * x 


* the microcomputer screen. (Selection #10 from the Main Menu)} ** 
RRR KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKKKKK 


* Note: This program will not function correctly with signal * x 
* analyzer dual screen traces that are stored to disc. GPIB * x 
* disc data files must be single traces of amplitude vs freq. * x 


RR KKKK KEK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
Bivype <RETURN> to continue.m “" ? 


6. The <RETURN> key clears the computer screen, then triggers 


Zo 


the display ofwall g@aphic data £isies currently existing on the hard 
disc. The file directory information is followed by: 


"What file name contains your data?" 
"File designation must be dta (ie); filename.dta " 


"Pilename.dta ..." ? 


A correct filename input starts (DAMPCALC.BAS} execution which is 
confirmed by the screen prompt: 


"Loading the contents of " (filename) “into the computer..." 
"Disc file contents are ... Please wait... " 


7. While it loads the file, the computer echoes the file con- 
tents to the screen. This exhibition of (DAMPCALC.BAS} program execu- 
tion is also practiced for subsequent program sections. Screen mes- 
Sages appear that are descriptive of the program operations being 
executed. The operator may use the <Ctrl>(NumLck> keys to temporarily 
stop the screen displays for examination. Program execution starts 
again with any key pressed. 


8. The next screen message requesting operator information is: 
"Graphic XY-coordinates for ";FILE$;" have been determined. " 


"Type <YES> to store XY-coordinates... " ? 


a. Any entry not beginning in "Y" bypasses this option. 
b. An affirmative response produces the message: 
"What XY-coord filename?" 


"File designations must be xXYC- (ie) FILENAME.XYC " 


"Filename.xXYyCc ... " ? 


The operator may enter any filename of less than twelve total charac- 
ters in length, as long as the designation is "XYC". The S/A Inter- 
face program utilizes the "XYC" extension to similarly label all XY 
coordinate files, making their directory identification much easier. 
Responding to a valid filename, the program answers: 


"Storing your ®¥-graphie) coerdiinaces. 7.” 


9. Subsequently, (DAMPCALC.BAS} lists the X and Y coordinates of 
the selected file to the screen, then requests: 


"What. SDC/DC correction ssactor” 2? 
During the development of the S/A Interface Program, this researcher 


chose to write a manual correction factor into the (DAMPCALC.BAS} 
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mmeanme. This factor corrects for X and Y coordinates being produced 
yy the analyzer and determined by the program in HP-plotter scale 
ralues. The factor need be determined only once for each group of 
fisc files originating from common analyzer screen grids. 

athe method Werdetermine the SDC/DC correction factor is 
iccomplished by: 


* Use the formulas ... SDC = 200 PI (W(2) - W(1))/W(n) 
Be = (W(2)me—- W(1))/(2 Win) ) 
ene meee le ce 9 2 7 


W(1l) & W(2) are the frequency values 
at the half-power points on either 
Side of the resonant frequency 


W(n) is the nodal resonant frequency 


Seanually calculate SDC (or DC) from a Signal Analyzer 
display that has the same coordinate scale as the group of 
Geaphdic files in question. 


7 * Process the same Signal Analyzer graph used for the SDC 
(Or DC) manual calculation with (DAMPCALC.BAS}, entering an 
iepeial SDC/DC correction factor of one (1); (i.e.) no 
correction, in response to the program request for a factor. 


* Divide the manually derived SDC (or DC) value into the 
BeAMPCALC.BAS} generated SDC produced with no correction. 
The numerical result of this division is the SDC/DC 
correction factor, applicable to all graphic files that 
were produced from common S/A displays. Note that for 
PeiiseracctOr tO be trully common for all files in a group, 
S/A output voltages, and similar critical configuration 
set-up page parameters must also be shared. 


pene pPLogram algorithm for calculation of SDC and DC 
epends upon determination of the curve baseline so that half-power 
Oints can be found as (l/square root of 2) times the maximum ampli- 
ude. The curve baseline is found by averaging the Y coordinate val- 
es at the left and right ends of the curve in question. HPp-plotter 
coordinate values assigned by the S/A are not zero at the curve mini- 
ums, but have magnitudes that must be included when calculating SDC 
ma DC. See <DAMPCALC.BAS> program lines 3880 - 3900 and 
GRAPHXYC.BAS> program lines 2200 - 2300. 


as 


10. Entering a valid SDC/DC correction factor produces the fol- 
lowing screen report: 


WHRKEKKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK NN 


" VALUES FOR " (filename) "YMAX(Abs) = " (Ymax coord) 
" Spc = " (SDC) " % " "X(0) =-" (X minimum) 

"pe «=o WDE) "XMAX(Abs) = " (X maximum) 

" SDC/DC CORRECTION FACTOR OF “ (correetion factor) 


WRK K KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKN 


"Type any key + <RETURN> to ReEnter the SDC/DC factor " 


The listed YMAX(Abs) value is the maximum vertical graphic coordinate, 
or the maximum amplitude in HP-plotter scale terms of the curve in 
question. X(0) is the minimum horizontal graphic coordinate, while 
XMAX(Abs) is the maximum value in HP-plotter scale terms for the 
{DAMPCALC.BAS} processed curve. 


11. In the same fashion as prior discussed sub-programs, this 
routine has a final screen message which enables (DAMPCALC.BAS} to be 
rerun for a different disc file. 


"Type yes to examine another disc file... " ? 
Any response not starting with "Y" returns the main menu to the compu- 
ter screen. 


K. GRAPH XY COORDINATES (GRAPHXYC.BAS} The last main menu selection 
in the S/A Interface Program is a routine that graphically displays 
the curves stored to disc as X and Y coordinates by {DAMPCALC.BAS}, 
the previous menu selection. {(GRAPHXYC.BAS} reads the files with 
".XYC" extensions from the hard disc; finds the maximum amplitude 
coordinate pair; "smoothes" the curve coordinates and finds the half- 
power points; calculates the Specific Damping Capacity (SDC) and Damp- 
ing Coefficient; and then displays the selected graph on the computer 
screen with the half-power points marked. The original curve and its 
"smoothed" version are both displayed to provide verification that the 
processed graph is a close approximation of the original. 


1. Main menu selection 10 executes (GRAPHXYC.BAS} which begins 
with the banner instructions: 
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KKK KKK KA KKRKKKK Program <GRAPHXYC.BAS> *XXKKKKK KK KKK KK KK KK KKK KKK KK 


xk This program loads the XY-coordinate contents of a designated ** 
xx disc file into the computer, then displays those coordinates * x 
Sewotapnically on the computer screen. A second curve is also * x 
ex= displayed that is a SMOOTHED version of the disc file graph. * x 
*x** The SMOOTHED version is used for SDC & DC calculations, so xx 
**k its visual FIT to the disc file graphic data is displayed on * x 
** the computer screen for comparison. XY-coord disc files used ** 
** by this program must have been produced by <DAMPCALC.BAS>. * x 
KREKKKKKKKKKKEKKKKKKEKKEKKKK KKK KK KKK KKK KKK KK KKK KK KKK KKK KK KKKKKKEKKKKKKKKK 
**x Note: Disc files for this program must have file designations **. 
*k of <XYC> (ie) FILENAME.XYC Other file types will not * x 


e~ load correctly. * x 
KREKEKKKKKKKKKKKKKK KKK KKKKK KKK KK KKK KKK KKK K KKK KKK KKKEK KKK KKKEKKKKKKKKKKKK 


EO CoMmernuc. 2." >? 


"Type <RETURN> 

2. Typing the <RETURN> key clears the screen, displays the dir- 
2ctory of XY-coordinate files, and exhibits the program request for a 
-ilename: 


"What file name contains your XY-coord data?" 
"File designation must be xyc (ie); filename.xyc " 


Berlename.xyc ..." 2 
Only XY-coordinate files generated by {DAMPCALC.BAS}, or files 
that have the X and Y coordinates stored as integers in the 
sequence “Xl Yl K2 Y2 X3 Y3 X4 Y4 etc. joewlll Meddecorrecely . 
Beemeene entry of a valid filename, the routine advises: 


"Loading the contents of " (filename) " into the computer... " 

"Disc file contents are ... Please wait... " 
12 3 ms 6LLO87 Zo elele st Zee 2S 16: (1279 20 1343 21 
404 woe 1471 ZA Si 22 1599 24 1663 Zoe 7 27 Zak 
B55 27 1919 29 eo oS S04 7 Sega 2 led See a S02 
1239 Bee 2303 Sgr 62 S10 7 5 743A: Some oO9 B85 2623 40 
687 2 7 5 1 NI, Pee ALS 44 2943 44 3007 46 3071 46 
35 48 3199 BC 3265 50°. 3327 52 3591 ° 53” 63455 56 
519 58 3583 61 3647 Siler ill 63 3775 63 3839 64 
903 65 3967 7Om 4051) 71 4095 T4159 eee 2 203 15 
207 We 4351 82 4415 S5 ema479 6584545 84 4607 90 
al 92 4735 91 4799 92 4863 94 4927 95 4991 97 
5 103 =5119 103 5183 99 5247 99 5311 94 5375 93 

POM. ot tt tt tt es 


gmilar to prior programs, the disc file contents are exhibited on the 
Creen for verification of correct operation. Note that, depending on 
Memeoordinate values, file contents may not line up in neat columns 
Beene above example implies. 

| 3. {GRAPHXYC.BAS} also calculates SDC and DC for the chosen 
iraph. The calculation also depends on the entry of an SDC/DC correc- 


1 


_ 


tion factor entered by the operator, just as it did in {DAMPCALC.BAS}. 
The procedure to calculate the correction factor is exactly the same 
as that explained in paragraph J above. Thererore, 1¢ 1s Netyeete oe. 
ated here. 


a. After entry of the SDC/DC correction facwen aan. 
results appear as: 


WKKKKKK KK KEK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKEN 


"RESULTS FOR " (filename) 
"SDC = " (SD@) Pereen ia 
: "DC = " (DC) 
"PLOTTER COORD YMAX(Abs) = " (Y maximum) 
"X(0) = " (X minimum) “"Xt@MaGe= ™ (xX menu : 
" "SDC/DC CORRECTION FACTOR IS " (factor) 


WKKEKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKN 





"Type any key + <RETURN> to ReEnter the SDC/DC factor " ? 


4. Pressing the <RETURN> key only (entering a null response) 
will advance program execution to the prompt: 


"Type <RETURN> for graph of file data." ? 


Typing the <RETURN> key once again will clear the screen and graph the 
curve on the computer monitor. The graph is displayed with a ten-by- 
ten grid across the screen. In the upper left corner of the graphic 
display, the message appears: 


"SCREEN TRACE OF " (filename) " SIGNAL ANALYZER DISC FILE" 

"A positive XFCTR moves trace to the right. A positive YFCTR moves " 
"screen trace down. <XFCTR + YFCTR = 0> exits the graph.mode ... " 
"WHAT XFCTR ="? __ 

“WRT YRGmRI r=: S65 | 


a. The computer monitor graphic origin is at the upper left | 
of the monitor screen. Thus, monitor X-coordinates increase in value 
from left to right, the usual convention. But, Y-coordinates increase 
in value on the monitor from top to bottom, the reverse of the common 
COnven Gi on. 


b. To move the graphic curve LEFT and DOWN, enter a nega- 
tive integer for "XFCTR" and a positive integer for "YFCTR". Integer 
multiples of twenty (20) to thirty (30) provide reasonable motion in 
the desired directions. 
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Eeerne graphic display section of (GRAPHXYC.BAS} can be exited 
ith two successive null entries [<RETURN> and <RETURN>], or any two 
alues XFCTR + YFCTR which sum to zero. That combination produces the 
inal screen message: 


"Type yes to examine another disc file... " ? 
negative answer (not beginning with "Y") returns the operator to the 
ain menu. 


6. The curve smoothing routine used in <GRAPHXY.BAS> is listed 
m program lines 1420 - 2180. The smoothing routine operates on the 
-coordinate values only; X-coordinate values and indecis remain un- 
hanged. - The routine calculates an average Y-coordinate increment for 
he left half of the maxima curve (LYI). Similarly, an average Y- 
coordinate increment is figured for the curve portion to the right of 
ts maximum (RYI). These average increments are proportionally summed 
mM program lines 1980 and 2140 to approximate the left and right hal- 
Bs of the original curve with more continuous versions. Factors of 
.05 and 1.2 appearing in these program lines can be changed by the 
rogrammer to vary the shape of the "smoothed" curves produced. These 
actor values worked well for modal maximums displayed over a 25 Hz 
requency range. 
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APPENDIX ae 
GRAPHIC PROGRAM OUTPUT/RESULTS 


82 


oo2 N WAS dudxX gq S ‘aI 
000 “OS ZH OOSe" 4vV SVE | 
» rE 
ALLEL 
rey ot “ 
x é, KAT 
. > KYRA |. 
~ A mA A | 
e | AL 
5 2-dvi ‘p-dV MOA SH 
T-dV wod SAUL 
AG’ 2 AT’ V HOLM Gd0e- 9d JAY W/9 
ZHOS 44+ DV HO GdOr MA MOT 





Ol-dV 3 Z-aV ‘p-dv ‘IT-aV 
SH1dWVS dOA SLOId DIHdVYD LNAUIONIOD 





ae Oc 
i ; 

d 

NO ITHVYD 
gd 


(SVa°VLUUY) ONISN UALLO 


(SVE°ULTdD) ONISH GALLOMd 
aNV diy) DJIHWVY9 


Pa) 
di dd9 


‘411 ZH OS2 ‘Ty 
2xN1_ WYON OOD Se 


7 aw 


OV 
GY cS *c0 
dN lds 


83 


00e N WNS QudX 


000 “OS 


AS* 3 AI 


ANE Co eele 





V oH OLM gd0¢e- 90 


ZHOS d&4 JV HI 8dOr AMA 


94.9 D9 Bau OOTT 


gd 
ASVE 


SSI amlenlel 
cXN1 WYON 


Iho! (41) 
YM0 1 di ddd 


T-aV 


ZH OGe “Ty 


OV 
BY *¢S *c0 
dNias 


84 


002 N WNS GudX 


O00 “OS ZH OUS¢ av 





AG' 9 AT’ VY H OLA 


gd0c- 90 
ZHOS wd JV HI d0r MA 


94 8 9D 3890 OOTT Z-dVv 


gd 8 ‘Ie 


etl 


—aSVa€ —2XN1_WYON 


JAY W/32 
YM0 1 


je 


ZH OS¢e “SP 


OV 
Gree) -E0 


4. dug das 


S20 


O00e N WAS QdudX 
O00 *OS 


ZH OOGS¢e* JV 


AS" 3 AT’ VY HOLM gd0¢e- 90 


ZHOS wd 


JV HO adOv MA 


94 9 D B90 OSOT 


a0 6 ‘Ct 


*y dll 


JSV€ ¢cXN1 WHYON 


JAW W/O 
YM0 | 


b-dv 


(a 
di dug 


ZH OGL *EV 


OV 
Gy *O” *00 
dNL3S 


86 


00¢e N WANS ddudX 


O00 ‘OS 


AS" 93 AI 





ZH O0G¢° AV 


Y H ILM dd0¢e- 9 


ZHOS U4 JY HI GdOr AMA 


94 9 9D Bau OSOT 


gq 
ASV 


6 TI *{4l| 
cXN 1 WYON 


JAY V/2 {SLI 
YM0 } di dug 


S-aVv 


z 


ZH 000 ‘VP 
O00 “Se 
0 


Oc 
JO} 


ee 


gd 


OV 


TY *8S *00 
dN las 


S7 


002 N WNS dudx ag O°Ol =. «4! = ZH «O00 ‘PY 
000 ‘0S ZH 00S2° 4V 3Sva_2XN7_ WYON 900 "Sz 
eee -Q 


$l, 


Me , i 02 
ad 
i re ETT Ov 
AS" J AT’ V HOLM gd0¢e- 30 JAW W/2 [all Be "VO *10 


ZHOS dd JV HO dd0r MA YM0 1 di ddd dNLAS 


94 49 9 8aG OOOT ZL-aV 


O00¢c N 


AS ° 


WAS OYdx 
000 “0S ZH 00S2 


aS 
=~ i 
yy 


de Al ee Hoa 
ZHOS dd JV HI 


Gd I ‘QI ‘|4il ZH OGZ “SP 
* dV ASVd CXN1 WHYON O00 “Se 
sity yy 
T cae 
Oc 
7 ri P 
qd 
te iB Y OV 
Gdg0c- 9d SAY V/9 |4l| TS ‘0c ?10 
Gu0r MA YAO | dl dug dN lass 
of 9 9 3au OOOT 8-aV 


89 


00¢ N WNS OudX 
000 “OS 


LA 
ee oe 


ne 
PY 
i 


ZH O0S¢e° JV 


AS* J AT’ VY H SLM gd0¢- 90 


ZHOS dd 


JY HD Gd0r MA 


94.9 9 Bau 0S6 


da 9°8 ‘|411 ZH 000 "0S 
aSV@_2XN7_WYON (000 ‘Sz 
ij 1 02 
iL ‘ : 
ad 
Td Or 
SAV V/3 Ill Lv *82 #10 
MOT 41 do dN.L3s 


Ot-dV 


90 


ur, 


002 N WAS GdudX 
000 “0S 


NSS ey, 
ZHOS a4 


_ ZH 00S2" 4V 





H JIM g00¢e- 30 
JV HD sdOv MA 


94.9 9D Sad 0S6 


a 


gq 8 ie oe lielaa| 


_asva 


2XN7__WYON 


JAY V/I Isl 
YM0 1 di ddd 


L1-dv 


ZH 000 “SY 
000 *S¢ 
0 


OV 
60 *SO0 *00 
dAlas 


oe 


O02 N WAS OddX 


000 “OS 


F 


AS" J ALD 


SS ee en ot 





et ee ee - 





gd 9° ‘{41! ZH 000‘0 
ZH OOS2* 4V asva_ 2XN7 WYON ono 





(QVd°VLG49) ONISGN GALLOId 
T-€W UNV Z-dN IST TdNVG YON SHIAUND 





(QVHU"ULTdD) INISN GHLLOTd 


Y H QLM ad0¢- 90 


ZHOS Yd ‘IJV HI dr MA YMO7 


O1-dW 9 Z4-dn ‘Pv-dn 
SHTdNVS YOd SLOTd DIHdVUD LNESGIONIOD 


b-GN HIdNVS YOd FAM UNV UIYD DIHavUd 
bapa (eel aan 
JAY Y/9 {SL} 





di ddd 


0 
02 9° 
907 
ao 

OF 

G1 *QT +00 

dns 


O0e N WANS QudXxX 





AS” J Al’ VY H Jie | 
ZHOS wd JY HO sdOr MA 


949 9 300 OSOT P-dN 


qq 9° 
000 ‘OS ZH 00S2°" 4V aSva 


fT 


gd0e- 9d 


JAY W/9 


YM 1 


= fall 


}41| 
di dug 


ZH 000 *0S 
000 *Se 
0 


gd 


OV 
OT *9T *00 
dNls 


002 N WNS GYdx 
000 “OS ZH O00S2" 4V 


ry} 
Ad 


AS'° 2 AT’ V HOLM G002- 90 
ZHOS 4 QV HO GdOr AMA 


94 9 D Baq OSOT 


dg € ‘8 


eee 


ASV@ <¢XN1 WHYON 


JAW V/39 
YMO 1 


S-udn 


eel 
dl dag 


ZH 000 ‘OS 
000 *S2 


OV 
GT 'y¥ *0Q0 
dALSAS 


00¢ N WAS GudXxX gd OT *{4l] ZH 000 "OS 





000 ‘OS ZH O00Se" 4V _3SVA = 2XN1_ WYON 000 °S2 
| v a i . 0 
: dg 
ed OV 
AS Soe Nis YO eile g00¢c- 30 JAY V/)O {All Ev *80 *T0 
ZHOS wd JV HD dd0rv MA YMO | dl dug dNlss 


94. 9 9 3890 ODOT L-AN 


22 


002 N WNS Gudx 
000 ‘OS 


oem a 
ZHOS 4 


_2H ose’ 4V aSVe 


H ILM 8d0¢- 90 
JV HO ddOrv MA 


94.9 9 329G OOOT 


G0 0°8 


eee 


JAW V/2 
YMO 1 


8- dn 


Sajal | 


2XN1 WON 


{All| 
dl dug 


ZH 000 ‘OS 
000 ‘Se 


. | | 
fd OV 


Oe 
901 


a0 


£6-SVF40 
dALAS 


96 


00c NWNS QdedXxX 


000 ‘OS ZH O0S2* 4V_ 


: 





amare carne ane aera me 
wee ee 
\ 


AGS* 3 AT’ VY HOLM 


G00¢c- 90 


ZHOS dd JV HB adOr MA 


O49 9 Baq OS6 


G0 + 8 *|4l1 ZH 000 °OS 
4SV@ = ¢XN1 WHYON 000 *Se 


cy 


JAY V/3 {dll 
YM01 elas 


OT-adh 


0 


02 
JO) 


dd 


OV 
he A218, 
eli Sas 


oy) 


O0¥ N WNS QudX 


000 *OS 


e SA 


—— 


AS° 3 AT’ 


_ZH 00S2°* 4V 


AEP 


Y H OIM dd0¢e- 90 


ZHOGS a4 JV HO aG0rv MA 


94.9 9 Bau uS6 


aq 0°01 ‘1411 ZH 000 ‘OS 
3Sva —2XN1_WHON O00 "Se 
HE OP 
DAV V/3 ILI LE '9y #10 
UOT 41 dug dN. 
TT-dn 


98 


APPENDIX D 


NUMERICAL SDC AND DC PROGRAM RESULTS 


oY 


SEEKER EREEKCKEEREKRKEKEERRREKEKREE EK ESE 


RESULTS FOR alfci1007xye 


SDC = 62.19728 Percent 

DC = 4.949503E-02 . 
PLOTTER COORD YMAX(Abs) = 103 
X(0) = 1023 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.6523 


KEREREKRHKEKKREKRHEKEKREKRERHKKEKEREREKRHKHHEEKRKREKRHKEEKREHEE 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


LbLST 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFFSEXIT 


RRERKEKRERKEKHEKRKEKREKEKRHERKKREKHKRKEKCHEKREKREKREXK SE 


RESULTS FOR a2fc1100.xyc 


SDC = 40.32938 Percent 
DC = .90320931 
PLOTTER COORD YMAX(Abs) = 132 
X(O) = 1727 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.6523 


KERKEKEREKEKEKRKEKRRKEEKEK EKER 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


1LIST 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFFOEXIT 


190 


OSCREEN 


OSCREEN 


RRKKEKEKKKRKEKKKRERKRKKKREREKKREKEKKEKKEKRKEKREKRKEKEKE 


RESULTS FOR a4fc1050.xyc 

SDC = 52.9629 Percent 

DC = 4.214654E-02 
PLOTTER COORD YMAX(Abs) = 106 
X(O) = 1407 X(MAX) = 7231 
SDC/DC CORRECTION FACTOR IS 2.6523 


KRHEKKKKKKRKRKRKRKEKRKKEKKRKEKEKKKKRKEKEKRKEKKEKKKKEERE cS 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


1LIST 2RUN 3LOAD" 4SAVE"“ SCONT 6,"LPT1 7TRON 8TROFFSOEXIT 


REKKRKEEKEKKEKKREKRKEKEKRKEKKKEKKRKEKREKRKRKREKEREKEREKEE 


RESULTS FOR a5£c1050.xyc 


SDC = 66.83013 Percent 

DC = $§.318173E-02 
PLOTTER COORD YMAX(Abs) = 95 
X(O0) = 1087 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.6523 


RREKKEKKKEKKEKKKRKRKKEKEKRKKEKRKRKEKRKKRKREKREKKRKKKKEE 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


PEs 1 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFFOEXIT 


Oe 


OSCREEN 


OSCREEN 


BEEK EKKEKEKKKREREREKRKERAEKKRKERAREKEREKREEKEEES 


RESULTS FOR a7fc1000.xyc 


SDC = 66.34463 Percent 

DC = 5.279538E-02 
PLOTTER COORD YMAX(Abs) = 106 
X(0) = 1023 X(MAX) = 72931 


SDC/DC CORRECTION FACTOR IS 2.6523 


BRREEEEKRAEKEKEREKEEKEKKKEKKEREREKEKHREKRHEEKEKEEK SE 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


= 


1LIST 2RUN _3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFF9EXIT 


SEKEKEKEKEKRSKEEKAREAEKRERAKRHRAKRARAARSEKEKRRAEERHREHREEAR 


RESULTS FOR a8fc1000.xyc 


SDC = 50.58213 Percent 

DC = 4.025198E-02 
PLOTTER COORD YMAX(Abs) = 124 
X(O0) = 1471 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.6523 


SRS EEREKREKERHAEREKEKRERERHKEARHEREEKEEREKAKEE 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


1LIST 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFFSEXIT 


OZ 


OSCREEN 


OSCREEN 


EKEKKKEKREKEEKREKRKEEKEKRKEKREKEERHEKEKEEEKREEEEE EEE EE 


RESULTS FOR alOfc950.xyc 


SDC = 46.86655 Percent 

DC = 3.729521E-02 
PLOTTER COORD YMAX(Abs) = 114 
X(0) = 1407 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.6523 


KRERKEKREKEKEKEKRKKERKERKREKREKRKEKREREKRKEEKERER KK EE * 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


1LIStT 2RUN 3LOAD" 4SAVE" SCONT 6,"“LPT1 TTRON 8TROFFOEXIT 


KRHEEREKREKEKEKEREREKRKEKRKEEKRKEEKRHEEREKREKREEEREKREKRE EE 


RESULTS FOR all1fc950.xyc 


SDC = 42.84997 Percent 

DC = 3.409892E-02 
PLOTTER COORD YMAX(Abs) = 130 
X(0) # 12535 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.6523 


HERE EEEKRKEKRKEKREREKREREEREKREKRERKKEKREREKER 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


Piro. 2RUN 3LOAD" 4SAVE" S5CONT 6,"LPT1 T7TRON 8TROFFOEXIT 


10'S 


OSCREEN 


OSCREEN 


SBSEKKEKKRKEKRSEKREREKKREKEKRKRKCKEKRERERRKREERKKRKEEKRESR 


RESULTS FOR m4fc1050.xyc 


SDC = 62.94721 Percent 
. DC = .0500918 
PLOTTER COORD YMAX(Abs) = 111 
X(O) = 1471 X(MAX) = 7231 : 


SDC/DC CORRECTION FACTOR IS 2.01912 


SFRECEEKEEEKRKEKEEEEKEEEEKEKESSEKEEEEEKEKEEEEEKRKEEE 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


1LIST 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFFYEXIT 


SEES EKEEEKEKEKERKEKRSEKRERKKKRAKEKRKKRKEKKKRRKRERERRERE 


RESULTS FOR m5f£c1050.xyc 
SDC = 60.23935 Percent 
DC = 4.793695E-02 
PLOTTER COORD YMAX(Abs) = 111 
X(O) = 1343 X(MAX) = 7231 
SDC/DC CORRECTION FACTOR IS 2.01912 


SKEEKEKKERKEEKERKEKERRKEKEKKKRKEKRKESKRKESEKEKKKREKRRKKREKRE 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


1ILIST 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFF9OEXIT 


104 


OSCREEN 


OSCREEN 


RKHERKRKRKRKRKEKKKKRKERKRKKKRKRKRREKRKKRKKRKRKEKRKEKRKEKREKRKEE 


RESULTS FOR m7fc1000.xyc 

SDC = $§1.8725 Percent 

DC = 4.127883E-02 
PLOTTER COORD YMAX(Abs) = 108 
X(O) = 1535 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.01912 


RRREKEKRKKKRKKKKKRERKEKREKREKKEKRKKKKKRKRKRKRKKKRKEKRKKEK & 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


LELST 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 T7TRON 8TROFFSEXIT 


RRRKEKREKRKEKRKKEKKKKKRKEKRHKEKKEKKRKEERKRERKEEKKEKKKRKK KEKE 


RESULTS FOR m8£c1000.xyc 


SDC = 63.66265 Percent 

DC = 5.066113E-02 
PLOTTER COORD YMAX(Abs) = 102 
X(O0) = 1407 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.01912 


REKRKRKKRKKKAEKREKRKRARKRKREKRKERKREREKEKEKREEEKEKEE ESE 


Type any key + <RETURN> to ReEnter the SDC/DC factor 


1LIST 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFFSEXIT 


1905 


OSCREEN 


OSCREEN 


BEEKEKEKKEKKEKKKKEKKKEKEKEKEKRKEEKRKEERKEKEREKREKER E 


RESULTS FOR mi0fc950.xyc 


SDC = 53.54609 Percent 

DC = 4.261063E~-02 
PLOTTER COORD YMAX(Abs) = 105 
X(0) = 1599 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.01912 


RKEEEKKHKHEREKEKKEKEKEKEKEKKERKKEKEKRKEKEKKKE KE KK 


Type any Key + <RETURN> to ReEnter the SDC/DC factor 


1LEST 2RUN  3LOAD" 4SAVE" SCONT 6,"LPT1 7TRON 8TROFFOEXIT 


RSREKKBRHEKREKRKKKKKEREKRKEKEKKKKKKKKKEKKEKKER 


RESULTS FOR m11f£c950.xye 


SDC = 55.69478 Percent 
DC = .0443205 
PLOTTER COORD YMAX(Abs) = 105 
X(O) = 1599 X(MAX) = 7231 


SDC/DC CORRECTION FACTOR IS 2.01912 


SBEREKKEKKERKKKHREREKKEKKEKERKKEKKEKAEKEAEKKRKKE 


Type any key + <RETURN> to ReEnter the SDC/DC factor 
LLIsST 2RUN 3LOAD" 4SAVE" SCONT 6,"LPT1 T7TRON 8TROFFOEXIT 


196 


OSCREEN 


OSCREEN 


eae) eee 


SroNAb ANALY ZERO INTERFACE PROGRAM CODE 


noe 


100 
120 
140 
160 
180 
200 
220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
500 
520 
540 
560 
580 
600 
620 
640 
660 
680 
700 
720 
740 
760 
780 
800 
820 
840 
860 


REM re eee ES EERE EE SS EF | <MENU.BAS> PROGRAM rEe Se EEE EEE E EER ES ESE ERE EES ESE ES ES SE 


REM This is the MAIN MENU for all the Signal Analyzer utility programs. 


ean 
eat 
een 
een 
sen 
aon 
ss 
eau 
een 
een 
ean 
ean 
seu 
eeu 
seu 


Sen: 


“ 


we ee 


eeu: 


seu 
seu 


CLS BEEP BEEP REM Clear screen. 
PRINT te SESSTSSESSSTSESSSESSSSSSESSESSSSESSSSSESATSSSSESSTSSTSSSESSESSSeE*SESSSSAS*STAS IH 
PRINT " =2 SIGNAL ANALYZER INTERFACE PROGRAM 
PRINT " 7 MAIN OPTIONS MENU 
PRINT " == 
PRINT " =< <MCNEG BBS ele cierto cere tee wre Slee one. lad 
PRINT " => <PPLOT.BAS> ...cccccves Sere Wucnesenete eee” 
PRINT " 2s <PRPLOT GERG> ois so esse eo aos 6 eee 3 
PRINT " == <CPLTR BASS? Acsierc- ots ee ces sce ad: 6 Seen ene 
PRINT " =< <INTOITA:BAS> 4.0.4.5 5 cs eeeees ¢ ioneaeneceemennne 5 
PRINT " -* <GRDTA s BARS oie o6 ie eens Oras ro 1s eo ee ee 
PRINT " - 2 <SCRNDTA.BAS>.) 2.65.5 6cic5 c% Gee eee OF 
PRINT " =? <ITERPLOT..BRS> 2506.05 6 6 soe ee 5 oe sce eee eee 
PRINT " > <DAMPCALC « BASS) 26k 6 ewes cles 0b eeeteee 
PRINT " =< <GRAPHXYC BAS? 9650.0 2 6 2 eee eo 6 0 6 see see 10 
PRINT " ag EXIT THIS MENU ...cccccevscccscscen? ODMER REY 
PRINT " == 
PRINT " =* 
PRINT " a= 
PRINT " =* 
PRINT " =* PERKINS/PATCH MASTERS THESIS ({NAVPGSCOL} 
PRINT " = COPYRIGHT AUGUST 20, 1987 UNITED STATES NAVY 
PRINT vt SBKRSSSSTSSSCTSSSSCSSSSSSSSSSSTTSSTSHSSSSTCSSSSSSSSTSACSV*VSVssesesesesesv_esV_e eset 
LOCATE 18, 18 INPUT “CHOICE ";ANSS . 
LOCATE 18,30 PRINT "OK!" : LOCATE 18,35 

IF ANSS = "1" THEN RUN "“MCNFG" 

IP ANSS = "2" THEN RUN "FPLOT" 

IF ANSS = "3" THEN RUN "PRPLOT" 

IP ANSS = "4" THEN RUN "CPLTR" 

IF ANSS = "5" THEN RUN "INTDTA" 

IF ANSS = "6" THEN RUN "GRDTA" 

IF ANSS = "7" THEN RUN "“SCRNDTA" 

IF ANSS = "8" THEN RUN "ITERPLOT" : 

IF ANSS = "9" THEN RUN "“DAMPCALC" 

IF ANSS = "10" THEN RUN "GRAPHXYC" 

CLS PRINT PRINT " EXITING MAIN MENU... " 
END 
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~ 


100 
120 
140 
160 
180 
200 


220 


240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
500 
520 
540 
560 
580 
600 
620 
640 
660 


700 
720 
740 
760 
780 
800 
820 
840 
860 
880 
900 
920 
940 
960 
980 
1000 
1020 
1040 
1060 
1080 
1100 


REM **** * 8 seee8ne48 gpib-pc lead-in program lines *®* FFF seeeeeeaxeeageaanss 
CLEAR ,59504! ;:REM BASIC Declarations 
IBINIT1 = 59504! 
IBINIT2 = IBINIT1 + 3:REM Lines 120 through 220 MUST be included in 
BLOAD "bib.m",IBINIT1 
CALL IBINIT1(IBFIND, IBTRG,IBCLR,IBPCT,IBSIC,IBLOC,IBPPC,IBBNA,IBONL, 
IBRSC, IBSRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, 
IBWRTF ) 
CALL IBINIT2(IBGTS,IBCAC, IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD, IBCMDA, 
IBRD, IBRDA,IBSTOP, IBRPP,IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, 
IBWRTIA, IBSTA% , IBERR% , IBCNT% ) 

REM SEKRKRERBKKEKEBKBEKEE gpib-—-pc lead-in program lines end here SBTBSTe“eSKBKBKEK 

KEY 9, "EXIT" : ON KEY (9) GOSUB 1740 : KEY (9) ON’: REM Interrupt trap. 

REM ---- program Machine Configuration <MCNFG.BAS> ---- 

DIM A%(1000) a 

CLS : SOUND 900, 8 : SOUND 880, 6 

PRINT “********* Machine Configuration Program <MCNPG.BAS> S*****eseeenses 

PRINT “** This program can store signal analyzer machine configuration **" 


PRINT “** codes obtained originally from the analyzer itself. The ae 
PRINT “** program can also set up the signal analyzer, using any — 
PRINT “** configuration data files previously saved to computer disc. **" 


PRINT CSREES SESSSSKSKEKSKKREKSSKSKESSKKEKRHSHSKSEKSSEETKKRESEKEKEKRSSEKRSEEKARKEKSEEE & I! 

PRENT “** Ensure that the Signal Analyzer is connected and ON a 
PRINT “** and that its GPIB address is 25. a 

PRINT UREREESKSEESKSEKEESSEKCESARSESSEKTSEKRSESESTEKEASEESKKEESSSESEKKEEEKRERSEASEKEKESETE ESM 
DEVS = “DEV1" : CNT% = 1200 : ATS = “ FPKEY 8,47 “ : CMD1S$ = “menfg?" 
CMD2$S = "menfg " 

PRINT : PRINT “Type 1 to obtain & store the current configuration. " 


PRINT “Type 2 to set up analyzer with an existing config'tn file. " 
PRENT: INPUT “ 1 or 2)... *; ANSS 
REM Following three lines are traps for invalid/valid keyboard responses. 


IF ANSS = "1" THEN 720 
IF ANSS = "2" THEN 1120 
GOTO 320 


REM ***** start program section to obtain & store analyzer config'tn ****** 
CALL IBFIND (DEVS,DV%) 

CALL IBCMD (DV%, ATS ) 

CALL IBWRT (DV%, CMD1$) 

CALL IBRDI (DV%, A%(1), CNT%) 

CLS: PRINT : PRINT “This is a sample of the analyzer config'tn data ... " 
FOR I = 1 TO 400: PRINT AX¥(I);: NEXT I 

PRINT : PRINT “What file name for disc storage? " 

SOUND 900, 8 : SOUND 880, 6 

PRINT "Note: The file designation must be cfg (ie); filename.cfg " 
PRINT “Type <RETURN> to bypass disc storage. " 


PRINT : INPUT “Filename.cfg ...";FILES 

IF PILES = "“" THEN 1580 

IF LEN(PILES) > 12 THEN 840 : REM Limits filename length to < 12 

IF RIGHTS(FILES,3) = "CFG" THEN 1020 

IF RIGHTS(FILES,3) <> “cfg" THEN 840 

CLS: PRINT : PRINT “Storing analyzer config'tn data under filename ";FILES 
PRINT : PRINT “Please wait... " 
OPEN "c:\gpib-pc\" + PILES FOR OUTPUT AS #1 
FOR J = 1 TO 600 : PRINT #1, USING “###8#4##"; AX¥(J); : NEXT J 
CLOSE #1 : GOTO 1580 
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1120 
1140 
1160 
1180 
1200 
1220 
1240 
1260 
1280 
1300 
1320 
1340 
1360 
1380 
1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1580 
1600 
1620 
1640 
1660 
1680 
1700 
1720 
1740 
1760 
1780 
1800 
1820 
1840 
1860 
1880 
1900 
1920 
1940 
1960 


REM *******22 Gctart of program Séction to usegexisting disc file <*-.—. -.- 
ON ERROR GOTO 1700 : CLS : REM No file error trap & clear screen. 
PRINT : FILES "*.cfg" : SOUND 900, 8 : SOUND 880, 6 
PRINT : PRINT "What file name for retrieval from disc?" 
INPUT “Note: The file designation must be cfg (ie); filename.cfg "; FILES 
IF RIGHTS(FILES,3) = "CFG" THEN 1260 
IP RIGHTS(PILES,3) <> "cfg" THEN 1160 
PRINT : PRINT “Opening file ";FILES;" ...Please wait. " 
OPEN "c:\gpib-pce\" + PILES FOR INPUT AS #1 
FOR J = 1 TO 600 : IF EOFP(1i) THEN 1320 : INPUT #1, A®(J) : NEXT J 
CLOSE #1 :CLS :PRINT : PRINT “Sample contents of file ";FILES$;" are ... " 
FOR I = 1 TO 400 : PRINT AX(I): : NEXT I 
PRINT : PRINT : SOUND 900, 8 : SOUND 880, 6 
INPUT "Type yes to set up signal analyzer using this file. ";ANSS 
IF LEFTS(ANSS,1) = "“y" THEN 1440 
IF LEFTS(ANSS$,1) <> "“Y" THEN 1580 
CALL IBFIND (DEVS, DV%) 
CALL IBCMD (DV%, ATS) 
CALL IBWRT (DVX%, CMD2$) 
CALL IBWRTI (DV%, A%®(1), CNTX) 
PRINT : INPUT "Type KK + <return> to reset using same file. "“;ANSS 
IF ANSS = "KK" THEN 1440 
IF ANSS = "kk't THEN 1440 
CLS : SOUND 760,6 : PRINT : INPUT “Type yes to run program again. ";ANSS 


IF LEFTS(ANS$,1) = "y" THEN 100 
IF LEFTS(ANSS,1) = "“"Y" THEN 100 
RUN "MENU.BAS" 
END 
REM BSSBEBESEEESEESEBESEESE No existing file error trap SBREESCSeseseeseeseseeeseeseaeeeaezeese 
IF ERR = §3 THEN PRINT “File not found; try again. " : RESUME 1120 

ON ERROR GOTO O 

REM BSBRBRESESSSESETSETeEaAseseseseseuesee INTERRUPT SUBROUTINE SRBRSSSESSSSSEKEKEEESSEBEBSARTEES 


BEEP : BEEP 

CLS : LOCATE 4, 1 

PRINT : PRINT "PROGRAM INTERRUPT... " 

PRINT : PRINT "Type <RETURN> to resume this program section." 
PRINT : PRINT "Type <KK> to start this program section over." 
PRINT : PRINT "Type any other key + <RETURN> to exit to main menu." 
PRINT : INPUT ANSS 


IF ANSS = "" THEN RETURN 
IF ANSS = "KK" THEN 100 
IF ANSS = "kk" THEN 100 


RUN "MENU.BAS" 


eo 


100 REM SPESSSSSEseseseseseseagseanxcsee GPIB~-PC PROGRAM HEADER FESRBSSEASSSESASSESESSseaseseeseeeee 


120 CLEAR ,59504!:REM BASIC Declarations 

140 IBINIT1 = 59504! 

160 IBINIT2 = IBINIT1 + 3:REM Lines 120 through 220 MUST be included 

in your program. 

180 BLOAD "bib.m",IBINIT1 ; | 

200 CALL IBINIT1(IBFIND,IBTRG, IBCLR,IBPCT,IBSIC,IBLOC,IBPPC,IBBNA,IBONL, 
IBRSC, IBSRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, 
IBWRTF ) 

220 CALL IBINIT2(IBGTS,IBCAC, IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD, IBCMDA, 


IBRD, IBRDA, IBSTOP, IBRPP, IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, 
IBWRTIA, IBSTA% , IBERR% , IBCNTX) 
240 REM ERSERSESTEAAEESESEESE END OF GPIB-PC PROGRAM HEADER SBRSRSEASESERASESAReASKBAATER 
260 DIM A%(10000) 
280 KEY 9, "EXIT" ;: ON KEY (9) GOSUB 1420 : KEY (9) ON :REM FO key interrupt. 
300 CLS : PRINT : PRINT : REM Program Name <FPLOT.BAS> 


320 ON ERROR GOTO 1360 : REM No existing file trap. 

340 PRINT UsSsSseeeeeeeeeeeenanezeeez PROGRAM <FPLOT.BAS> SRESRSECHRASSEBSAAAZSEASEETASS IN 
360 PRINT "** This program files signal analyzer screen images in disc oa 
380 PRINT "** files named by the operator. Each analyzer screen image is **" 
400 PRINT "** stored as an integer array. Each element of the integer = lag 
420 PRINT "** array represents two ASCII code characters from the HP ee 
440 PRINT "** plotter language. (Ref: HP Plotter Prog. Manual, pg. 1-8 & 9)**" 
460 PRINT "** Please ensure that the signal analyzer is turned on and sg aga 
480 PRINT "** that it's GPIB address is twenty-five (25). = ee 
500 PRINT URSRARSSTASKAATSASAAKRSAHSESSSSAASAKRSAKATARASEAKSEKRSSEASAATSEASSESRSSeCAsSea*sesewewee«s ii 
§20 PRINT "** NOTE: Use <MCNFG.BAS> to store Signal Analyzer machine ee 
540 PRINT "** configuration files identified as ''tfilename.cfg'' — 
560 PRINT URRARATSASEATSSSESSSS SSS SSS STATS SSS SSeKaASSKSeAS SSK See sSeeaseseeeseweeegil 
§80 SOUND 2100, 10 : SOUND 1970, 9 


600 PRINT : PRINT "What filename do you wish to specify? " 
620 PRINT "Note: File designations must be dta (i.e.); filename.dta " 
640 PRINT : INPUT "Type your filename.dta";FILES 


660 IF LEN(FILES) > 12 THEN 580 :REM Limit filename length to 12 characters. 
680 IF RIGHTS(FILES,3) = "DTA" THEN 720 

700 IF RIGHTS(FILES,3) <> "dta" THEN 580 

720 V¥ = 0 

740 DEVS = "DEV1" : 

760 CNTX% = 11000 

780 CMD1$ = “PLOT? " 


800 CALL IBFIND (DEVS,DV%) 

820 CALL IBTMO (DV%, V%) 

840 CALL IBWRT (DV%, CMD1$) 

860 CALL IBRDI (DV%, A%(0), CNT%) 

880 PRINT:PRINT "The following matrices of integers is a sample of how " 
: PRINT " the analyzer data looks stored on the disc... " 

900 FOR N = 1 TO 2400: NEXT N : PRINT : REM This is a time delay line. 

920 PRINT "SAMPLE DATA... SAMPLE DATA... SAMPLE DATA... " 

940 PRINT "SAMPLE DATA... SAMPLE DATA... SAMPLE DATA... " 

960 FOR I = 1 TO 220: PRINT A%¥®(I); : NEXT I 

980 PRINT : PRINT : PRINT "Storing screen data to disc... " 

1000 OPEN "C:\GPIB-PC\" + FILE$ FOR OUTPUT AS #1 

1020 FOR J = 1 TO 10000 STEP 4 

1040 PRINT#1, USING "########"; A¥(J); A¥(J4+1); A¥(J+2); A¥(J+3); 

1060 IF A®¥(J) + A¥(J+1) + A¥(J+2) + A¥(J+3) = O THEN 1120 


jal 


1080 
1100 
1120 
1140 
1160 
1180 
1200 
1220 
1240 
1260 
1280 
1300 
1320 
1340 
1360 
1380 


1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1580 
1600 
1620 
1640 


PRINT "+"; 
NEXT J 
CLOSE #1 
PRINT : PRINT "Screen data stored on disc under filename ";FILES 
PRINT : PRINT PILES;" disc file filled with " iJ; "elements... " 
PRINT : PRINT "Disc file “7FILES;= closed -.- 
ERASE A% : REM Erase prior contents of AX(matrix) to prep for reuse. 
PRINT: PRINT "Type yes to run the program again to file another signal" 


INPUT " analyzer screen";ANSS 

IP LEFTS(ANSS,1) = "y" THEN 100 

IF LEPTS(ANSS,1) = "Y" THEN 100 
RUN "MENU. BAS" 

END 


REM ********** No Eile/Bad filename ,error trap routine *******+*++++err * 
IF ERR 64 THEN PRINT "Bad file name; try again. " 
IF ERR 50 THEN PRINT "Filename is too long; try again. " 
: RESUME 340 
ON ERROR GOTO 0O 
REM ****8eeee62828* SUBROUTINE FOR FS MENU ESCAPE SEQUENCE ©***"****<e%--*-« 
BEEP : BEEP 
CLS : LOCATE 4, 1 
PRINT "PROGRAM INTERRUPT... " 
PRINT : PRINT "Type <RETURN> to resume this program section." 
PRINT : PRINT "Type <KK> to start this program section over again." 
PRINT : PRINT "Type any other key + <RETURN> to exit to main menu." 
PRINT : INPUT ANSS 
IF ANSS = "" THEN RETURN 
IF ANSS = "KK" THEN 100 
IF ANSS = "kk" THEN 100 
RUN “menu.bas" 


a 


V2 


100 
120 


140 
160 
180 
200 
220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
500 
520 
540 
560 
580 
600 
620 
640 
660 
680 
700 
720 
740 
760 
780 
800 
820 
840 
860 
880 
900 
920 
940 
960 
980 
1000 
1020 
1040 
1060 
1080 
1100 
1120 
1140 
1160 


REM EERREKEREREAKR ERER Program Name <PRPLOT.BAS> BKEEKREKERKEKKEKKEEREREEKEAREKAL 
CLEAR : ON ERROR GOTO 1100 : REM Zero variables & set no existing file 


trap. 
DIM A¥(10000) : CLS : REM Dimension AX(matrix) & clear screen. 
KEY 9, "EXIT" : ON KEY (9) GOSUB 1140 : KEY (9) ON : REM Interrupt trap. 


REM This program outputs the contents of the disc file designated by the 
REM operator to the line printer in the format in which it is stored. 
PRINT HEKKEKKEKREKEBRKREKERE Program Name <PRPLOT.BAS> SEEKKRKEREKBREKEKAREREKEKK EEE 1! 
PRINT "** This program prints the contents of a GPIB disc file on the **" 
PRINT "** line printer. The integer disc file is printed in the same **" 
PRINT "** format in which it was stored. Any integer disc file ca 
PRINT "** containing less than 10000 integer elements can be printed. **" 
PRINT WHKEEREREKRKKRKEKRRREKRKBRREEKKEKEKEKRKRKKRHRREREREKRERRERKEREKRERKERERRREREKRERERKRERE KS 1 

PRINT : INPUT "Type <RETURN> to continue... ", ANSS 

CLS : PRINT "Standard files on this disc are... " 
PotiiewPiuno. .dta ent LES "*. CFG” + FILES “*.xyc"™ 

SOUND 2100, 10 : SOUND 1970, 9.600001 

PRINT : PRINT “What filename? " 
PRINT "Please include a file designation (i.e.); filename.xxx " 


PRINT " where xxx is the designation. " 
PRINT “[---- NON-INTEGER files will not correctly load. ----]" 
PRINT : INPUT "Filename.xxx"; FILES 


"bas" THEN 220 
"BAS" THEN 220 
"EXE" THEN 220 
"exe" THEN 220 
"COM" THEN 220 
"com" THEN 220 


IF RIGHTS(FILES,3) 
IF RIGHTS (FILES,3) 
IF RIGHTS(FILES,3) 
IF RIGHTS (FILES,3) 
IF RIGHTS (FILES,3) 
IF RIGHTS(FILES, 3) 
IF RIGHTS(FILES,3) "BAT" THEN 220 
IF RIGHTS(FILES,3) "bat" THEN 220 
PRINT : PRINT “Reading the contents of disc file ";FILES : PRINT 
OPEN "c:\gpib-pc\" + FILES FOR INPUT AS #1 
FOR I = 1 TO 10000 STEP 2 
IF EOF(1) THEN 840 
INPUT#1, AX®(I), A®(I+1) 
IF A%(I) + A®%(I+1) = O THEN 840 
PRINT "+"; 
NEXT I 
CLOSE #1 
PRINT : PRINT : PRINT "Sending file ";FILES;" to the line printer. " 
FOR J = 1 TO 10000 


PRINT USING "########" > A%(J); 
LPRINT USING "########">A%(J); 
IF A¥(J) + A®¥(J+1) + A®%¥(J+2) = O THEN 980 
NEXT J 
PRINT : INPUT "Type yes to print another file"; ANSS 
IF LEFTS(ANSS,1) = "y" THEN 100 
IF LEFTS(ANSS,1) = "“Y" THEN 100 
RUN "MENU.BAS"” 
END 
REM EREREREKEKEKEKEXEXEXX NO EXISTING FILE ERROR TRAP KSREKKKKEKKKEKREKEERKRREKEEREEKE 
IF ERR = 53 THEN PRINT "File not found; try again. " : RESUME 220 
ON ERROR GOTO O 
Ree SUBROUTINE FOR FS KEY PROGRAM INTERRUPT *******s44eee22% 
CLS : LOCATE 4, 1 : BEEP : BEEP 


ai 


1180 PRINT : PRINT “PROGRAM SINT ERROPT... 


1200 PRINT : PRINT "Type <RETURN> to resume this program section.” 
1220 PRINT : PRINT "Type <KK> to start this program section over." 
1240 PRINT : PRINT "Type any other key + <RETURN> to exit to main menu." 
1260 PRINT : INPUT ANSS 

1280 IF ANSS = "" THEN RETURN 

1300 IF ANSS = "KK" THEN 100 

1320 IF ANSS = "kk" THEN 100 

1340 RUN "menu.bas" 


114 


100 REM ****#*eeeeeeeeexeeex interface board heading ******tseuxeteexexunxene 


120 
140 
160 


180 
200 


220 


240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
500 
$20 
540 
560 
5380 
600 
620 
640 
660 
680 
700 
720 
740 
760 
7380 
800 
820 
840 
860 
880 
900 
920 
940 
960 
980 
1000 
1020 
1040 
1060 
1080 


CLEAR , 989504! :REM BASIC Declarations 

IBINIT1 = 59504! 

IBINIT2 = IBINIT1 + 3:REM Lines 120 through 220 MUST be included 
in your program. 

BLOAD "bib.m",IBINIT1 


CALL IBINIT1(IBFIND,IBTRG,IBCLR,IBPCT,IBSIC,IBLOC,IBPPC,IBBNA,IBONL, 
IBRSC,IBSRE,IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, 
IBWRTF ) 

CALL IBINIT2(IBGTS,IBCAC,IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD, IBCMDA, 
IBRD, IBRDA, IBSTOP, IBRPP, IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, 
IBWRTIA, IBSTAX®, IBERR% , IBCNTX) 


REM SReRERKEKEKEEKEREKRKEKERE end of IB program heading RKEKKREKEKKEKSEKKREKEKREKREKEE 


mx OO 


mx 10 


REM ~~-~~- program name Computer Plotter <CPLTR.BAS> -~-~-~ 
DIM A%®( 10000) 

Ney 9, “VBAIT ON KEY (9) GOSUB 1500 KEY (9) ON REM Interrupt trap. 
CLS : SOUND 800, 10: SOUND 780, 8 
Brel oe eee ee eee Program Computer Plotter <CPLIR.BAS> *S****eeseecane 
PRINT "** This program uses the HP-plotter to draw a graph using data 
PRINT "** from a computer disc file selected by the operator. The file **" 
PRINT "“** chosen must contain an image from the Scientific Atlanta ae 
PRINT "** signal analyzer that was saved to disc in integer format. ila 
PRINT "** The file designation must be {.dta}, (i.e.) filename.dta 
PRINT "** Please ensure that the plotter is connected and turned on. aaa 
PRINT OREKRSESEKREKRKRKRKEKREKRKKKHKRKKKRKRKKRKKRKRKKREKKKKKRKRKKREKRKKKRKRKEKKEKKRKKEKRKEKKEKEKKHKRKEKEKS I 

ON ERROR GOTO 1460 : REM No existing file trap. 

PRINT INPUT "Type <RETURN> to continue... ", ANSS 

CLS 
PRINT FILES “*.dta" 
PRINT : INPUT “What file name contains your graph";FILES 

IF RIGHTS(FILES,3) = "dta" THEN 640 
IF RIGHTS(PILES,3) <> "DTA" THEN 320 

CLS : LOCATE 4, 1 
PRINT "Loading disc file ";FILES;" Please wait... " 
CNT® = 10500 


OPEN "c:\gpib-pc\" + FILES FOR INPUT AS #1 


FOR I = 1 TO 10000 STEP 2 
IF EOF(1) THEN 880 

INPUT#1, A®(I), AX®%(I+1) 

IF A¥(I) + A¥(I+1) = O THEN 880 

PRINT “+";- 

X = CSRLIN IF X <= 22 THEN 860 

CLS LOCATE 4, 1 PRINT “Still loading "; FILES; 

NEXT I 
CLOSE #1 
REM Program section to initiate HP-plotter and select pen. 


PRINT : PRINT PRINT "Plotting the disc file ";FILES; 
CMD1S = ";;IN:;" 
CMD2S = ";:;SP;:;SP:;SP 1;;" 
CMD3S = “;;PA1100,2100;;" 

CMD4S = ";;PU;;PU;;SP;;" 

DEVS = “hppltr" 

CALL IBFIND (DEVS, DV%) 

CALL IBCMD (DV%, CMD1S) 

CALL IBWRT (DV%, CMD2S) 


iS 


1100 
1120 
1140 
1160 
1180 
1200 
1220 
1240 
1260 
1280 
1300 
1320 
1340 
1360 
1380 
1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1580 
1600 
1620 
1640 
1660 
1680 
1700 


CALL IBWRT (DV%, CMD3S) 
REM program section to send data to plotter 
V¥ = 0 
CALL IBTMO (DV%, V%) 
CALL IBWRTI (DV%, A%(0O), CNT%X) 
CALL IBWRT (DV%, CMD4S) 
PRINT : PRINT : PRINT "data bytes written to plotter... "; IBCNT% 
PRINT "plotter status... "; IBSTA% 
REM program section to end or re-run the program 
PRINT : PRINT : PRINT "Type yes to run this program again. " 


INPUT "Type K to print the same disc file again. "; ANSS 
IF LEFTS(ANSS,1) = "y" THEN 100 
IF LEFTS(ANSS,1) = “Y" THEN 100 
IF ANSS = "K" THEN 920 
IF ANSS = "k" THEN 920 
RUN "MENU.BAS" 
END 
REM BRRRRKKEKRHRHRARNRHE SE No existing file trap SRREREKEKEEKEKRHERKRHHHKEHEHHEHRHRHRESRHHEH ESE 
IF ERR = 53 THEN PRINT “File not found; try again. " : RESUME 340 


ON ERROR GOTO O ; 
REM RQRBREREHEKRHEKRRHEEBREREREE KEY (9) INTERRUPT SUBROUTINE RERKRKREBRHRBREKEKEKESEKEKRHHSE 

CLS : LOCATE 4, 1 : BEEP : BEEP 
PRINT : PRINT "PROGRAM INTERRUPT... " 
PRINT : PRINT "Type <RETURN> to resume this program section." 
PRINT : PRINT "Type <KK> to start this program section over." 
PRINT : PRINT "Type any other key + <RETURN> to exit to main menu." 
PRINT : INPUT ANSS 

IF ANSS = "" THEN RETURN 

IF ANS$S = "KK" THEN 100 

IF ANSS = "kk" THEN 100 

RUN "menu.bas" 
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100 
120 
140 
160 
180 
200 
220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
900 
520 
540 
560 
980 
600 
620 
640 
660 
680 
700 
720 
740 
760 
780 
800 
820 
840 
860 
880 
900 
920 
940 
960 
980 
1000 
1020 
1040 
1060 
1080 
1100 
1120 
1140 
1160 
1180 


REM RERRRAREKRAREKEKEKEKEEH Program Name <INTDTA.BAS> (eee eee SESS SEES SE SSES SEES SS FE 
CLEAR : ON ERROR GOTO 1580 : REM Clear screen & set no file trap. 
DIM A%(10000) : REM Dimension AX(matrix). 
REM FFF EPEHEHEEEHAFEEHEEEEAEEEE EEE FA EHEEHEEHEEE EEE EEEHE EEE HEHEHE HEE HH EHH 
KEY 9, “EXIT" : ON KEY (9) GOSUB 1620 : KEY (9) ON : REM Interrupt trap. 
REM FAEREHEEHE HEHEHE FEE EERE ETE HEE HEHE EEEE EEE EE EERE ERE EEE EEE EEE EE EEE HOE 
REM This program opens a GPIB disc file, reads the integer data into 
REM memory, then converts that integer data to ASCII characters for 
REM interpretation. The converted code is displayed on the screen 
REM and is also sent as output to the line printer. 
CLS : SOUND 2100, 10 : SOUND 1970, 9.600001 
PRINT" BSAA Program Name <INTDTA.BAS> KERREKEEKKEKKRKEREKAREKEARKEAS “ Il 
PRINT"** This program converts the integer contents of a GPIB disc file **" 
PRINT"** into ASCII characters for interpretation. The converted code **" 
PRINT"** is displayed on the screen and output to the line printer. a 
PRINT"** (Non-integer files will not load.) {Interpretation of output: **" 
PRINT"** Plotter language is explained in the HP Plotter Prog. Manual gle 
PRINT"** & Signal Analyzer codes in the Sci. Atlanta Operating Manual.} **" 


PRINT“ FAR SSRARARARARRASAAREKESSEAEKSEKRHKARSKAAEEHKAEEREKRRHARSEARAEKESSKSASEKSRAK KAS I 


PRINT"** NOTE: Type F9 to interrupt program printing operation if the om 


PRINT"** entire decoded file is not desired from the line printer. sg 
PRINT" SSSR SSRAAKAAAARAEARSAAESAARARERAEA KARA RAAARARARARARARARARARARARARA AAAS! 
PRINT : INPUT "Type <RETURN> to continue... ", ANSS 
CLS 
PILES 
PRINT : PRINT “What filename? " 
PRINT “Please include a file designation (i.e.); filename.xxx " 
PRINT “ where xxx is the designation (BAS, BAT, COM or EXE are invalid)." 


PRINT : INPUT “Filename.xxx"; FILES 
IF RIGHTS (FPILES,3) "bas" THEN 300 
IF RIGHTS(FILES,3) "BAS" THEN 300 
IF RIGHTS(FILES,3) "EXE" THEN 300 
IF RIGHTS(FILES,3) "exe" THEN 300 
IF RIGHTS (FILES,3) "COM" THEN 300 
IF RIGHTS(FILES,3) “com" THEN 300 
IF RIGHTS (FILES,3) “BAT" THEN 300 
IF RIGHTS (FILES,3) "bat" THEN 300 
PRINT : PRINT “Reading the contents of disc file ";FILES : PRINT 
OPEN "c:\gpib-pc\" + FILES FOR INPUT AS #1 
FOR I = 1 TO 10000 STEP 4 
IF EOF(1) THEN 1000 : REM End of File (EOF) trap. 


INPUT#1, A¥(I), A®(I+1), A%®(I+2), A%(I+3) 
IF A¥(I) + A%®(I+1) + A®(I+2) + A®(I+3) = O THEN 1000 
PRINT “+"; 
NEXT I 
CLOSE #1 
PRINT : PRINT : PRINT “The following is sample data from disc file ";FILES 


PRINT ‘“---------------------------------------------------------------- 


PRINT "SAMPLE DATA... SAMPLE DATA... SAMPLE DATA... " 

PRINT "SAMPLE DATA... SAMPLE DATA... SAMPLE DATA... " 

PRINT " 2-2-9999 9 9 9 9 a rr nn nee ere ss 
FOR I = 1 TO 200: PRINT A%(I); : NEXT I 

PRINT 

PRINT : PRINT “ASCII interpretations..... Sree onenep ened eterens ter orciemonens eee 
LPRINT : LPRINT "ASCII interpretations........ Server sMeme tone o-citiae seo cust ana tea 6 oa <3 : 


LR 


1200 
1220 
1240 
1260 
1280 
1300 
1320 
1340 
1360 
1380 
1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1580 


1600 
1620 
1640 
1660 
1680 
1700 
1720 
1740 
1760 
1780 
1800 
1820 


FOR K = 1 TO 10000 STEP 4 
BB = INT(A®%(K)/256) : AA = A®(K) - (BB*256) 


BB1 = INT(A®%(K+1)/256) : AA1 = A®(K+1) - (BB1*256) 
BB2 = INT(A%®%®(K+2)/256) : AA2 = AX¥(K+2) - (BB2*256) 
BB3 = INT(A%®(K+3)/256) : AA3 = AX®(K+3) - (BB3*256) 


PRINT A%(K) ;SPC(1);A%®(K+1);SPC(1);A®%(K+2);SPC(1);A%(K+3) ;SPC(2); 

LPRINT A%®(K);SPC(1);A%®(K+1) ;SPC(1) ;A®(K+2) ;SPC(1) ;A%¥(K+3) ;SPC(2) ; 

PRINT CHRS(AA);SPC(1);CHRS(BB);SPC(1);CHRS(AA1);SPC(1);CHRS(BB1) ;SPC(1); 
LPRINT CHRS(AA);SPC(1);CHRS(BB) ;SPC(1);CHRS(AA1) ;SPC(1);CHRS(BB1);SPC(1); 
PRINT CHRS(AA2);SPC(1);CHRS(BB2);SPC(1);CHRS(AA3) ;SPC(1) ;CHRS(BB3) 

LPRINT CHRS(AA2);SPC(1);CHRS(BB2) ;SPC(1);CHRS(AA3) ;SPC(1) ; CHRS(BB3) 

IF (A®%(K) + A®¥(K+1) + A¥(K+2) + AX®%(K+3) = 0) THEN 1460 


NEXT K 
PRINT : INPUT "Type yes to print another file"; ANSS 
IF LEFTS(ANSS,1) = "y" THEN 100 


IF LEFTS(ANSS,1) = "Y" THEN 100 
RUN "MENU.BAS" 
END 
REM REBCRTEAATTEAAB“ABKRA“AWwWKSs No existing file error trap SSSSTECSsSeseeweeseeseseezese 
IF ERR = 53 THEN PRINT “File not found; try again. " 
: SOUND 600, 6 : SOUND 580, 4 : RESUME 320 
ON ERROR GOTO O 
REM BESAKRRAERAAARAAABARASR KEY (9) INTERRUPT SUBROUTINE pee SES ESERERSRSESESESE SE FE ® | 
CLS : LOCATE 4, 1 : BEEP : BEEP 
PRINT : PRINT "PROGRAM INTERRUPT... " 
PRINT : PRINT "Type <RETURN> to resume this program section." 
PRINT : PRINT "Type <KK> to start this program section over." 
PRINT : PRINT "Type any other key + <RETURN> to exit to main menu." 
PRINT : INPUT ANSS 
IF ANSS = "" THEN RETURN 
IF ANSS = "KK" THEN 100 
IF ANSS = "kk" THEN 100 
RUN "menu.bas" 
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100 
120 
140 
160 


180 
200 


220 


240 
260 
280 
300 
320 
340 
360 


380 


400 
420 
440 
460 
480 
500 
520 
540 
560 
580 
600 
620 
640 
660 
680 
700 
720 
740 
760 
780 
800 
820 
840 
860 
880 
900 
920 
940 
960 
980 


1000 PRINT:PRINT "Loading 
1020 PRINT:PRINT 


REM RSRESEAKHREKEKRKKREKEKRES GPIB Program Header RRESKAKRKEKSAKHEAEKKREEAKRKEKRKRAEKRKKKKSE 


CLEAR ,59504!:REM BASIC Declarations 

IBINIT1 = 59504! 

IBINIT2 = IBINIT1 + 3:REM Lines 120 through 220 MUST be included 
in your progran. : 

BLOAD “bib.m",IBINIT1 


CALL IBINIT1(IBFIND, IBTRG,IBCLR,IBPCT,IBSIC,IBLOC,IBPPC,IBBNA,IBONL, 
IBRSC, IBSRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, 
IBWRTF ) 
CALL IBINIT2(IBGTS, IBCAC, IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD,IBCMDA, 
IBRD, IBRDA, IBSTOP, IBRPP, IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, 
IBWRTIA, IBSTA%, IBERR% , IBCNT% ) 
REM REREEKEKCRKEKEKKEKEARKKEKEEKKKEAKKKEAARKKKERKEKKEEKEKEKEKEEAKEKERKKEARARKEEEKEKKEKCKKEEEKKEKEEAE 
REM +++ HHHHEEHEEHEEEPR EEE EE EEEEEP EEE EEE EE EAE FEEEEE EEE HEHEHE ttt t+ 
Key 9, “EXIT" ON KEY (9) GOSUB 2580 KEY (9) ON REM Interrupt trap. 
REM HEHEHE EEEREEEEEEEEEEEEEE EEE EEE PRE EE ERERE ERED EEE EERE PEO HE RE ot 
REM Program Graph Data <GRDTA.BAS> 
DIM A%®%(10100), B%X¥(6000) 
REM AX¥(xxxxx) is a matrix used to store signal analyzer graphic data from 
the designated disc file into the computer active memory 
REM B%(xXxxxx) is a matrix used to store the selected graphic portion of 
the signal analyzer disc file to be plotted via the HP plotter 
CLS REM Fol box appears on the screen and defines the program function 
SOUND 940, 10 SOUND 860, 9 
PRINT "Sec eeeeteeeceie** Program <GRDTA.BAS> 
PRINT"** This program loads the contents of a designated GPIB dise file 
PRINT"** containing integer data into the computer; identifies the file 
PRINT"** graphic data section, then plots that dise file graphic data 
PRINT"** using the Hewlett Packard plotter. This program can be used 
PRINT"** to plot several signal analyzer graphic displays on the same 
PRINT"** page, providing direct comparison of different sample results. 
PRINT" © 8S eeEKEKKEKEKERKEKEKEARKERAEEHREEEEEEHRAERAERKREE EKA KERAEEEEREEEE ESE I 
PRINT"** NOTE: Curves plotted together on the same plotter display =" 
PRINT"** should all have originated from equivalent coordinate scales — 
PRINT"** when they initially were displayed on the Signal Analyzer. eo 


PRINT" SSeS AEKRKAREKERAERKAEKRARKAEKAERARKAARKE KERR REREREREREEKE EN 


ON ERROR GOTO 2540 REM No existing file error trap. 


RECREATES 
aan 
ae 
xe 
eat 
eau 
mals 


PRINT INPUT "Type <RETURN> to continue... ", ANSS$ 

CLS REM Clear screen. 
PRINT FILES "* .dta" 
PRINT PRINT "What file name contains your data?" 
PRINT "File designation must be dta (ie); filename.dta " 
PRINT "Note: File desig's <EXE>, <BAS>, <BAT> & <COM> will not load." 
PRINT : INPUT "Filename.dta ...";FILES 

IF RIGHTS(FILES,3) = "DTA" THEN 1000 

IF RIGHTS(FPILES,3) = "Dta" THEN 1000 

IF RIGHTS(FILES,3) = "dta" THEN 1000 

IF RIGHTS(FILES,3) = “dTA" THEN 1000 

IF RIGHTS(FILES,3) = “dtA" THEN 1000 

IF RIGHTS(FPILES,3) = "dTa" THEN 1000 

IF RIGHTS(PILES,3) = "DTa" THEN 1000 


GOTO 400 


the contents 


"Please wait... 


of TY 


: FILES; “ into the computer... " 


1040 OPEN "c:\gpib-pc\" + FILES FOR INPUT AS #1 


Eo 


1060 
1080 
1100 
1120 
1140 
1160 
1180 
1200 
1220 
1240 
1260 
1280 
1300 


1320 
1340 
1360 
1380 


1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1580 
1600 
1620 
1640 
1660 
1680 
1700 
1720 
1740 
1760 
1780 
1800 
1820 
1840 
1860 
1880 
1900 
1920 
1940 
1960 
1980 
2000 
2020 
2040 


FOR I = 1 TO 10000 STEP 4 
IF EOF(1} THEN 1240 : REM End of File test. 
INPUT#1, A®¥(I), A®¥(I+i), A¥(I+2), AX®(I+3)} 
IF AX¥(I) + A®¥(I+1}) + A¥(I+2) + AX®¥(I+3} = O THEN 1240 
PRINT "+"; 
X = CSRLIN : IF X <= 23 THEN 1200 
CLS: LOCATE 4,1 : PRINT "Still loading ";FILES; 
NEXT I 
REM FE = the number of the last graphic data byte (or ASCII integer) 
FE = I : CLOSE #1 
CLS: PRINT : PRINT "Disc file ";FILES; " is loaded into active memory... " 
PRINT : PRINT "Identifying the start of graphic data ..." 
REM The following program section searches through the integer disc file 
and locates the graphic signal analyzer data. 
REM The graphic data begins with either {;; PD = 15163 17488} or 
(;P D; = 20539 15172} or {PD ;; = 17488 15163) or (D;;P = 15172 20539). 
REM Therefore, we only need check for the integers {17488 = PD) or for 
{15172 = D;}) which are common to all four possibilities. 
REM The graphic data ends with either (;; PU = 15163 21840} or 
. {(3;P U; = 20539 15189) or (PU ;; = 21840 15163} or (U;;L = 15189 19515). 
REM Therefore, we only need check for the integers {21840 = PU} or for 
{15189 = U;)}) which are common to all four possibilities. 


N = -100 a 
FOR J = 1 TO 10000 
IF N > 35 THEN 1580 
IF A%¥(J} = 17488 THEN 1500 
IF A®%¥(J} <> 15172 THEN 1540 
SB¥ = J : IF N > 35 THEN 1580 
N= 0 
N = N + 1 : PRINT "t"; 
NEXT J 
REM ** THE STARTING INTEGER FOR GRAPHIC DATA IS NOW SET AS "SBX" ## 


-PRINT : CLS : PRINT "Locating the end of graphic data... " 


FOR K = SB% + 50 TO FE 
IF A®(K) = 21840 THEN 1680 
IF AX(K) <> 15189 THEN 1700 
EB% = K : IF EBX% - SB% > 100 THEN 1740 
PRINT "#"; 

NEXT K 
REM ** THE ENDING INTEGER FOR GRAPHIC DATA IS NOW SET AS "EBX" ** 
REM Place the identified graphic data from AX¥(matrix) into BX¥(matrix). 
PRINT : CLS : PRINT "Storing the identified graphic data in BX¥(matrix)." 
REM The first ten integers of the file are graphic scaling instructions. 

FOR KK = 1 TO 10 : BX(KK) = A®¥(KK) : NEXT KK 
REM The following three integers institute a "pen down" instruction. 

B%¥(11) = 15163 : B¥(12}) = 17488 : B*¥(13) = 15163 
REM The following loop places the actual graphic data into BX(matrix). 

FOR L = 14 TO (EBX - SBX +1) 

B¥(L) = A¥(L + SBX =- 14) 
PRINT "@"; 

NEXT L 
REM The fol program section plots the graphic data previously identified. 

PRINT : CLS : PRINT "Plotting the selected graphic data ... " 

CMD1$ pe INS 

CMD2S ";;SP:;SP; ;SP1;;;PA1100, 2100;.;" 


4,20 


2060 
2080 
2100 
2120 
2140 
2160 
2180 
2200 
2220 
2240 
2260 
2280 
2300 
2320 
2340 
2360 
2380 
2400 
2420 
2440 
2460 
2480 
2500 
2520 
2540 
2560 
2580 
2600 
2620 
2640 
2660 
2680 
2700 
2720 
2740 
2760 
2780 


CMD3S = ";;PU;;PU;;SP;;" 
V% = 0 : CNT% = 9000 
DEV2S$ = “hppltr” 
CALL IBFIND (DEV2S, DV%) 
CALL IBCMD (DV%, CMD1S) 
CALL IBWRT (DV%, CMD2S) 
CALL IBTMO (DV%, V%) 
PRINT : PRINT "Calling IBWRTI( B%X¥(matrix) }... " 
PRINT "The interface board function to plot the data... " 
CALL IBWRTI (DV%, B%(0O), CNT%) - 
CALL IBWRT (DV%, CMD3S) 
PRINT : PRINT "Starting integer # = ";SB% ;* Ending integer # = ";EB% 
PRINT : PRINT "Type <KK> to RE-PLOT the same graph." 
PRINT "(Reposition graph paper to origin for a re-plot.)" 
PRINT : INPUT "Type yes to run the program again..."; ANSS 
IF ANSS = "KK" THEN 1980 


IF ANSS = "kk" THEN 1980 —— 
IF ANSS = "Kk" THEN 1980 
IF ANSS$S = "kK" THEN 1980 
IF LEFTS(ANSS,1) = "y" THEN 100 
IF LEFTS(ANSS,1) = "“"Y" THEN 100 
RUN "“MENU.BAS" 
END 
REM *## SF eeeeee ee eeeeee NO existing file error trap RBREBRRRKKKEKKEREKCKEKREL 


IF ERR = 53 THEN PRINT "File not found; try again." : RESUME 420 
ON ERROR GOTO O 
REM SEEKEKCREKEEEKEKEKEERES KEY (9) INTERRUPT SUBROUTINE SKEEEEKCEESEEKEEEKCSRECECES 
CLS : LOCATE 4, 1 : BEEP : BEEP 
PRINT : PRINT "PROGRAM INTERRUPT... " 
PRINT : PRINT "Type <RETURN> to resume this program section." 
PRINT : PRINT "Type <KK> to start this program section over." 
PRINT : PRINT "Type any other key + <RETURN> to exit to main menu." 
PRINT : INPUT ANSS 
IF ANSS = "" THEN RETURN 
IF ANSS "KK" THEN 100 
IF ANSS "kk" THEN 100 
RUN “menu.bas" 


100 
120 
140 
160 


180 
200 
220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
SOO 
520 
540 
560 
580 
600 
620 
640 
660 
680 
700 
720 
740 
760 
780 
800 
820 
840 
860 
880 
900 
920 
940 
960 


980 
1000 
1020 


1040 
1060 


1080 
1100 


REM --92%e%"%-------- Program Screen Data <SCRNDETA.BAS> -<-<<<==--------___ 
CLEAR : REM Zero all variables. 
DIM A%(10000) : REM Dimension AX(matrix). 
REM A%¥(xxxxx) is a matrix used to store signal analyzer graphic data from 
the designated disc file into the computer active memory 
CLS : REM Fol box appears on the screen and defines the program function 
SOUND 2010, 10 : SOUND 1980, 9 
PRINT" *##***48*428%* Program to display disc file <SCRNDIA-BAS> ****** 2. 
PRINT"** This program loads the contents of a designated GPIB disc file **" 
PRINT"** containing integer data into the computer and then displays eae 
PRINT"** the contents and its decoded ASCII characters for analysis. = 
PRINT"** Note: File desig's can not be <BAT>, <BAS>, <EXE> or <COM>. ==" 
PRINT "FF SSKEKKEHKKHRERAEKEEKRAKREKAAKKEEKEASARAHREKEKEEKRARARHEAEKKEKKAARAKERSERERERSESE I 
REM FEE A EE EEE EEE EEA EERE EEE EE EERE EERE EREEE EF EEE ERE EEE HEHE HE+H HHH 
KEY 9, “EXIT" : ON KEY (9) GOSUB 1780 : KEY (9) ON : REM Interrupt trap. 
PEM cw bond ee RRA EH EEE E REE EEA 4 PRE EREEEEFEEREREHEP EHH HEHEHE HE H+EF 
ON ERROR GOTO 1680 : REM Set no existing file trap. 
PRINT : INPUT "Type <RETURN> to continue... ", ANSS 
CLS : REM Clear screen. 
PRINT : FILES 
PRINT : INPUT "What file name contains your data";FILES 
IF RIGHTS(FILES,3) "exe" THEN 180 
IF RIGHTS(FILES,3) "EXE" THEN 180 
IF RIGHTS(FILES,3) “bas" THEN 180 
IF RIGHTS(FILES,3) "BAS" THEN 180 
IF RIGHTS(FPILES,3) "bat" THEN 180 
IF RIGHTS(FILES,3) "BAT" THEN 180 
IF RIGHTS(FILES,3) "com" THEN 180 
IF RIGHTS(FILES,3) = "COM" THEN 180 
PRINT: PRINT “Loading the contents of "; PILES: " into the computer... " 
PRINT:PRINT "Please wait... " 


‘OPEN "c:\gpib-pe\" + PILES FOR INPUT AS #1 


FOR I = 1 TO 10000 STEP 4 
IF EOF(1) THEN 900 
INPUT#1, AX¥(I), A®(I+1), A®(I+2), A®(I+3) 
IF AX%(I) + A®%(I+1) + A®%(I+2) + A¥(I+3) = O THEN 900 
PRINT "+"; 
X = CSRLIN : IF X <= 22 THEN 860 
CLS: LOCATE 4,1 : PRINT "Still loading ";FILES; 
NEXT I 
REM FE = variable to hold the number of the last graphic data byte 
FE = I : CLOSE #1 
ON ERROR GOTO 1740 : REM Set trap for integer overflow. 
CLS: PRINT "Disc file ";FILES; " is loaded into active memory ... " 
REM SB% = starting byte of desired data section EB% = ending byte of 
desired data section 
SOUND 1900, 8 : SOUND 1880, 6 
PRINT: PRINT "Designate the number of the starting byte... ";:INPUT SBX 
IF SB% < 1 THEN 980 : REM this line traps invalid byte designations that 
are less than the beginning of the graphic data file. 
IF SB% > FE THEN 980 : REM this line traps starting byte designations 
that are greater than the end of the data file. 
SOUND 1900, 8 : SOUND 1880, 6 
PRINT: PRINT “Designate the number of the ending byte... ";: INPUT EBX 
IF EB% > FE THEN 1060 : REM this line traps invalid byte designations 
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IF EB 


that are greater than the end of the data file. 
% < SB¥ THEN 1060 REM this line traps invalid ending byte 
designations that are less than the starting byte value. 


CLS: PRINT "Your chosen data bytes contain... " PRINT 
REM following line prints output data column headings 
PRINT "Byte # Byte # Integer Integer ASCII Characters " 
FOR I = SB% TO EB% STEP 2 
PRINT SPC(2);1;SPC(2);1+1;SPC(2); 
PRINT AX¥(I);SPC(1);A®(I + 1);SPC(3); 
REM the following lines calculate the ASCII Codes equivalent to the 
integers stored in matrix AX*(xxxxx) 
BB = INT(A%®(I)/256) AA = AX(I) - (BB*256) 
BBi = INT(AX®¥(I + 1)/256) : AA1 = A®(I + 1) - (BB1*256) 
PRINT CHRS(AA);SPC(1);CHRS(BB) ;SPC(1);CHRS(AA1) ;SPC(1);CHRS(BB1) 
REM the fol two lines limit screen output to nineteen lines at a 
time SLINEX = the number of <SCREEN LINES> currently displayed 
as output 
SLINEX = SLINEX + 1 IF SLINEX >= 19 THEN 1380 ELSE 1440 
SLINEX = 0 : INPUT "Type return for next screen... ";ANSS CLS 
REM the fol line prints output data column headings 
PRINT "Byte # Byte # Integer Integer ASCII Characters " 
NEXT I 
SLINEX = 0 REM reset screen line number variable 
PRINT : PRINT "Type yes to look at other data bytes... ";: INPUT ANSS 
IF LEFTS(ANSS,1) = "y" THEN 940 
IF LEFTS(ANSS,1) = “Y" THEN 940 
PRINT PRINT "Graphic file contained ";FE - 4;" total bytes of data." 
PRINT : INPUT "Type yes to examine another disc file... "; ANSS 
IF LEFTS(ANSS,1) = “y" THEN 100 
IF LEFTS(ANSS,1) = "Y" THEN 100 
RUN “MENU.BAS" 
END 
REM SPRBSERREEEKeEKEESE No existing file trap routine RQPSRKSSREKSKEKKHRKEEEESEETLSE 
IF ERR = 53 THEN PRINT "File not found; try again. " RESUME 200 
ON ERROR GOTO 0O 
REM RBRSSKKKKLKRKRBES Integer overflow trap routine RERKRSERBKRKREEKHKRERHRSERKKSEEEESE 
IF ERR = 6 THEN PRINT "INTEGER OVERFLOW GW BASIC (Table Al); TRY AGAIN." 
: RESUME 960 
ON ERROR GOTO 0 
REM -e eS FESS ES ESSE SE SEE ES SF | KEY (9) INTERRUPT SUBROUTINE BERKKEKMAAAKESKREABZRZEALUXSE 
CLS LOCATE 4, 1 : BEEP : BEEP 
PRINT : PRINT "PROGRAM INTERRUPT... " 
PRINT PRINT "Type <RETURN> to resume this program section." 
PRINT PRINT "Type <KK> to start this program section over." 
PRINT : PRINT "Type any other key + <RETURN> to exit to main menu." 
PRINT : INPUT ANSS 
IF ANSS = "" THEN RETURN 
IF ANSS = "KK" THEN 100 
IF ANSS = "kk" THEN 100 
RUN "menu. bas" 


ZS 


100 REM ****##sseeee080888288 Program <ITERPLOT.BAS> PES ECE SESE SCE SESE SES SESE ES S | 


120 CLEAR ,59504!:REM BASIC Declarations 

140 IBINIT1 = 59504! 

160 IBINIT2 = IBINIT1 + 3:REM Lines 120 through 220 MUST be included 

180 BLOAD "bibd.m",IBINIT1 

200 CALL IBINITI(IBFIND, IBTRG,IBCLR,IBPCT,IBSIC, IBLOC, IBPPC, IBBNA, IBONL, 
IBRSC, IBSRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, 
IBWRTF ) 

220 CALL IBINIT2(IBGTS,IBCAC, IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD, IBCMDA, 


IBRD, IBRDA, IBSTOP, IBRPP,IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, 
IBWRTIA, IBSTA% , IBERR%, IBCNT% ) 
240 REM **# 888888842422 ond ofygpib—-pe interface board lewaer *****=*******--o. 
BO REM © et FRA EEE EEE EEE EE EEE EAE EAH EAREAAEEE EERE HEE EE AEE EEE tHe tt 
280 KEY 9, "EXIT" : ON KEY (9) GOSUB 2140 : KEY (9) ON : REM Interrupt trap. 
SOQ REM tt) REE EEE EE EER EREAAEEEEREE EERE EAAL EEE EEE EE HEHEHE HH tHe ttt eee pete 
320 DIM A%¥(10000), B%¥(10000) : REM Dimension AX(matrix) & BX(matrix). 
340 ON ERROR GOTO 2020 : REM Set no existing file error trap. 
360 SOUND 900,10 : SOUND 800,8 : CLS : REM Beep & clear screen. 
380 PRINT WRRRVERSA ASSESSES Program <ITERPLOT.BAS> SBFEREREKCKEECECEKCERSKEEREEES SE! 
400 PRINT "** Program to selectively plot data from an operator desig'd **" 


420 PRINT "** disc file. This program runs the HP-plotter:- to draw a ie 
440 PRINT "** graph using designated portions of graphic data from a = 
460 PRINT "** disc file that was originally obtained from the Scientific **" 
480 PRINT "** Atlanta signal analyzer screen display by <FPLOT.BAS>. be cht 
§00 PRINT URRSTTKTKTTTAARKCAAASAREHATCSAREKCKTHBSKEAAERKTHAEBEESAAEBRAREEBRKEKEKCAAEKEKEHBEKEKREKSEN 
520 PRINT : INPUT "Type <RETURN> to continue... ",ANSS 

540 CLS 


560 PRINT : FILES "*.dta" 
580 PRINT : PRINT "What disc file do you wish to plot? " 
600 PRINT "Note: File designation must be dta (i.e.) filename.dta " 


620 PRINT : INPUT "What filename.dta "; PILES 

640 IF RIGHTS(FILES,3) = "“dta" THEN 760 

660 IF RIGHTS(FILES,3) = "Dta" THEN 760 

680 IF RIGHTS(FILES,3) = "“DTa" THEN 760 

700 IF RIGHTS(FILES,3) = "adtA" THEN 760 

720 IF RIGHTS(FILES,3) = "dTA" THEN 760 

740 IF RIGHTS(FILES,3) <> "DTA" THEN 360 

760 PRINT : PRINT "Loading ";FILES;" ... Please wait... " 


780 CNTX = 12000 
800 OPEN "c:\gpib-pc\" + FILES FOR INPUT AS #1 
820 FOR I = 1 TO 10000 STEP 4 


840 IF EOF(1) THEN 980 

860 INPUT#1, A®¥(I), A®¥(I+1), A®(I+2), AX®¥(I+3) 

880 IF A®¥(I) + A%¥(I+1) + A®¥(I+2) + AX¥(I+3) = O THEN 980 
900 PRINT “+"; 

920 X = CSRLIN : IF X < 22 THEN 960 

940 CLS : LOCATE 4,1 : PRINT "Still loading ";FILES 


960 NEXT I 

980 EF* = I : CLOSE #1 ;: REM Variable EFX is the End of Disc File index. 

-1000 CLS : PRINT "Note: The first several data bytes from the disc file 
contain graphic " : PRINT “scale and pen positioning instructions. 
Thus, you need at least the first " : PRINT “ten bytes to produce 
a readable graphic segment on the HP plotter." 

1020 PRINT : PRINT "Designate the number of bytes you wish to use from the " 

PRINT " beginning of the disc file {scale, border, etc.} " ; 
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INPUT BF%X 
IF BF*® > EF®% THEN 1020 : REM trap for byte number designation that is 
greater than the length of the file 
IF BF¥ < O THEN 1020 : REM trap for byte designation that is 
less than zero 
PRINT : INPUT “Designate the starting byte for the graphic data... "; SB% 
IF SB% < BFX® THEN 1080 : REM trap for starting byte less than BF% 
IF SB¥ < O THEN 1080 : REM trap for starting byte less than zero 
IF SB¥ > EF® THEN 1080 : REM trap for starting byte greater than EF% 
PRINT : INPUT "Designate the ending byte for the graphic data... " ; EB% 
IF EB% < SB¥ THEN 1160 : REM trap for ending byte value less than 
starting byte value 
IF EB% < O THEN 1160 : REM trap for ending byte value less than zero 
IF EB% > EF® THEN 1160 : REM trap for ending byte value greater than 
the disc file length 
PRINT: PRINT "“Rearranging original graphic data as requested... " 
FOR J 1 TO BFX : B¥(J) = A®¥(J) : NEXT J 
BX¥(BF*® + 1) 17488 : B¥(BFX + 2) = 11514 : B¥(BF¥ + 3) = 15383 
B¥(BF*% + 4) = 15163 : REM initiate pen position to Pl 
(HP-prog manual, pg. 2-2) 
N = 0 : REM set index for AX(matrix) starting byte 
REM Set BX(matrix) equal to chosen graphic data portion of AX(matrix) 
FOR K = BF® + 5 TO EB% - (SB% - BF%X - 1) 
B¥(K) = AX¥(SB% + N) ; 
N=N +1 
NEXT K 
REM Program section to address & activate the hp-plotter. 
eaulS = 777 ;7AIN; :;" : 


CMD2S = ";;IN;;" 
CMD3S = “;;;PA1100,2100;;;" 
DEVS = "HPPLTR" 


CALL IBFIND (DEVS, DV%) 

CALL IBCMD (DV%, CMD1S) 

CALL IBCMD (DV%, CMD2S) 

CALL IBWRT (DV%, CMD3S) 
REM program section to send selected data to plotter 
PRINT : PRINT "Plotting the rearranged data... " 

V% = 0 : CMD4S = ";;;PU;;PU;;SP;;;" 

CALL IBTMO (DV%, V%) 

CALL IBWRTI (DV%, B¥(0), CNT%) 

CALL IBWRT (DV%, CMD4S) 

PRINT “plotter status... "; IBSTA% 
PRINT : PRINT "Type K + <RETURN> to plot the same graph. " 
PRINT : PRINT “Type I + <RETURN> to select and plot different portions" 
PRINT " of the same graph. " 
PRINT : PRINT "Type <YES> + <RETURN> to select another disc file." 
PRINT : INPUT "Type <RETURN> to exit to main menu. ",ANSS 


IF ANSS = "K" THEN 1420 
IF ANSS = "I" THEN 2060 
IF ANSS = "k" THEN 1420 
IF ANSS = "i" THEN 2060 
IF LEFTS(ANSS,1) = “y" THEN 100 
IF LEFTS(ANSS,1) = "Y" THEN 100 


RUN "MENU.BAS" 
END 


eno 


2000 REM *****#*484**44** No existing file error trap routine see **s 77 | eee 


2020 IF ERR = 53 THEN PRINT "File not found; try again. " : RESUME 380 
2040 ON ERROR GOTO O 

2060 REM ****##se288282"£*% Routine to zero BE(matrix) An prep tor Peuse) **7--.... 
2080 ERASE BX : REM Erase BX(matrix) to clear previous chosen elements. 
2100 DIM B%¥(10000) : REM Redimension BX(matrix) to store next set elements. 
2120 GOTO 1000 

2140 REM BSKEKEKRKKKHEKEKKRKEKEKE KEY (9) INTERRUPT SUBROUTINE REBKKREKRKEKBRKEARKEKKEKKEE 
2160 CLS : LOCATE 4, 1 : BEEP : BEEP 

2180 ~ PRINT : PRINT "PROGRAM INTERRUPT... " 

2200 PRINT : PRINT "Type <RETURN> to resume this program section." 

2220 PRINT : PRINT "Type <KK> to start this program section over." 

2240 PRINT : PRINT "Type any other key + <RETURN> to exit to main menu." 
2260 PRINT : INPUT ANSS 

2280 IF ANSS = "" THEN RETURN 

2300 IF ANSS = "KK" THEN 100 

2320 _ IF ANSS = "kk" THEN 100 

2340 i RUN "menu.bas" 
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REM SERRKEKREREKREREREREKREREKEEKRERERRERERSRHE SER REREREREREEERHRAREREKRERREKREEREEEEEE EEE EE 


CLEAR : REM Clear memory for start or restart. 

REM ----------- Program Graph Data <DAMPCALC.BAS>  ------------- 

DIM A%(10000), B%(4000) 

REM A%(xxXxXxXxX) is a matrix used to store signal analyzer graphic data in 

integer form from the designated disc file 

REM A%(xXxxxx) is RE-USED to store the decoded analyzer XY-coordinates 

REM B%(xXxXxXxXxX) is a matrix to store the identified graphic portion of 
the analyzer integer file required for damping calculations 

REM C$(xXxxxx) is a matrix to store the decoded ASCII graphic data 
deciphered from the orig analyzer integer disc file 

REM FE bt t tt tt ttt tHHH HEE HEHEHE EEEEEEE FEE EEE HEHEHE PHe tHe ttttett 

KEY 9, "EXIT" : ON KEY (9) GOSUB 4920 : KEY (9) ON : REM Interrupt trap. 
REM +etttttt tt Ft Ht EHEHEPEPHEAEEEEEEEEEEEFEEEE EEE EE EEE EE PEEP EH HHH tet t tt 
CLS : REM Fol box appears on the screen and defines the program function 
SOUND 900, 10 : SOUND 840, 9 

PRINT" *#*# 8*eeseeeeeeeses Program <DAMPCALC.BAS> RBEEKKEKEKEKRREKREKREREKEKERERERERE CS I 

PRINT"** This program loads the integer contents of a designated GPIB a 

PRINT"** disc file into the computer; identifies the file graphic data **" 


PRINT"** section; then calculates the Specific Damping Capacity (SDC) ae 
PRINT"** and the Damping Coefficient (DC) for the selected data file. eae 
PRINT"** SDC & DC are calculated in absolute HP-plotter coord terms ae 
PRINT"** and may vary some from Signal Analyzer values. This program = 
PRINT"** will also store the S/A graphic XY-coordinates as absolute oda 
PRINT"** HP-plotter integer magnitudes, if desired. (The program oo 
PRINT"** <GRAPHXYC.BAS> can display stored disc file graphic data on ce 
PRINT"** the microcomputer screen. (Selection #10 from the Main Menu)} **" 


PRINT" * #88 SSSR EKER REE Kee eee eI 
PRINT"** Note: This program will not function correctly with signal ee 
PRINT"** analyzer dual screen traces that are stored to disc. GPIB ae 
PRINT"** disc data files must be single traces of amplitude vs freq. “ita 


PRINT" 888K eee eee KKKKERKEEEHREREEKERHEERESEREEEEKEHREREEEEHAERE EK EKER ESE 


ON ERROR GOTO 4880 : REM No existing disc file error trap. 
PRINT : INPUT "Type <RETURN> to continue... ", ANSS 
CLS : REM Clear screen. 
PRINT : FILES "*.dta" 
PRINT : PRINT "What file name contains your data?" 
PRINT "File designation must be dta (ie); filename.dta " 
PRINT : INPUT "Filename.dta ...";FILES 
ieeroGHTS(FILES,3) "DTA" THEN 960 
TREORIGHTS (FILES ,3) "DTa" THEN 960 
IF RIGHTS(FILES,3) "Dta" THEN 960 
IF RIGHTS(FILES,3) "dTA" THEN 960 
IF RIGHTS(FILES,3) "dtA" THEN 960 
IF RIGHTS(FILES,3) <> "dta" THEN 320 


REM SREEKKHEKRKEKEKREKREKCREKREREKRKEKEERKREKRERHEEKEKRERKRCKEKRRKRREKREREKREKRKREKREKREREKRKEKEEREREREERKEEKE ESE 
CLS : PRINT “Loading the contents of "; FILES; " into the computer... " 
PRINT : PRINT "Disc file contents are ... Please wait... " 
OPEN "“c:\gpib-pc\" + FILES FOR INPUT AS #1 
FOR I = 1 TO 10000 STEP 4 
IF EOF(1) THEN 1200 
INPUT#1, A%(I), A®%(I+1), A®%(I+2), A%®(I+3) 
IF A®S%(I) + A®(I+1) + A%®%(I+2) = O THEN 1200 
PRINT A%(I),A®¥(I+1),A%(I+2) ,A®%(I+3),; 
X = CSRLIN : IF X <= 23 THEN 1160 
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CLS: LOCATE 4,1 : PRINT “Loading contents of ";FILES 
NEXT I 
REM FE = the index <File End> of the last graphic data byte 
{or ASCII integer) 
FE = I : CLOSE #1 
CLS: PRINT : PRINT "Disc file ";FILES: " is loaded into active memor ..." 
REM BSEEEKEEKREBBKKEZSE LD GRAPHIC DATA START RBEBRKERARSEBRRARKEBRKERARBRRKEKRKRABEHBHHHSE 
PRINT : PRINT “Identifying the start of graphic data ..." 
REM The following program section searches through the integer disc file 
and locates the graphic signal analyzer data. 
REM The graphic data begins with either {;; PD = 15163 17488} or 
{;P D; # 20539 15172} or (PD ;; '@. 17488715163} or (D;>;P ™@ 15172 20539}- 
REM Therefore, we only need check for the integers {17488 = PD} or for 
{15172 = D;} which are common to all four possibilities. 
REM The graphic data ends with either {;; PU = 15163 21840} or 
{;P U; = 20539 15189} or {PU ;; = 21840 15163} or {U;;L = 15189 19515}. 
REM Therefore, we only need check for the integers (21840 = PU} or for 
{15189 = U;} which are common to all four possibilities. 
N = -100 : REM Set N < O, "N" is a test index for next loop. 
REM ‘re REERERERE SERRE SEEREREERRERESREREREREREEREREREERERERRER ERR EREEERREEREE EER ERE RE ERE EE | 
REM Fol loop finds starting index {SB%*) for the graphic data. 
FOR J = 1 TO 10000 


IF A¥{J) = 17488 THEN 1500 

IF A¥(J) <> 15172 THEN 1540 
SB% = J 7 
N = 0 


IF N > 35 THEN 1600 : REM Identifies a graphic data section > 35 
characters long. 
N= N + 1: PRINT "!"; 
NEXT J 
REM ** THE STARTING INTEGER FOR GRAPHIC DATA IS NOW SET AS "SBX" ** 
REM SBBRSEBERSEBEBeEBABKES ID END OF GRAPHIC DATA -ReEREE RE REE RSS ESERER EER EE SE | 
PRINT : CLS : PRINT “Locating the end of graphic data... " 
REM Fol loop finds ending index (EB%) for the graphic data. 
FOR K = SB%X% + 50 TO FE 
IF AX¥(K) = 21840 THEN 1760 
IF A&®(K) <> 15189 THEN 1780 
REM {EB% - SB% > 100} identifies a graphic section > 100 
characters long. 
EB*% = K : IF EB% - SB%¥ > 100 THEN 1820 


PRINT "#"; 
NEXT K 
REM ** THE ENDING INTEGER FOR GRAPHIC DATA IS NOW SET AS "EBX" ** 
PRINT : PRINT "Starting integer # = ";SB% ;". Ending integer # = ";EB% 


FOR KK = 1 TO 2000: NEXT KK : REM A delay line to display SB* & EBX. 
REM RBEOSBEBRHEBHBRKEBSE STORE GRAPHIC DATA IN BX (matrix) SBRBREKERSHEHBABERSeKS 
REM Place the identified graphic data from AX¥{matrix) into BX¥(matrix). 
PRINT : CLS : PRINT "Storing the identified integer data in BX¥(matrix)." 
REM The following loop places the actual graphic data into BX¥{matrix). 

FOR L = 1 TO (EB% = SBX¥ +1) 


B¥(L) = A®X(L + SBX% - 1) 
PRINT B%¥(L);SPC(1); 
NEXT L 


REM ***88aseeseee ZERO AX(matrix) & DIM CS(mateix)” *-.- 2...) 
ERASE A%® : REM Erasing AX%(matrix) to conserve memory space. 
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DIM C$(8000) : REM Dimension CS(matrix) for ASCII data. 
Ee een eee 
hem ********* Program section to decode & display graphic data ********** 
PRINT : PRINT : PRINT "Decoding the integer graphic data." 
PRINT : PRINT "Storing the decoded ASCII graphic data in C$(matrix)." 
POR KK = 1 TO 1800 : NEXT KK : REM Delay line for screen display. 
PRINT : PRINT "Your chosen data bytes contain... " : PRINT 
REM following line prints screen data column headings 
PRINT “ Byte # Byte # Integer Integer ASCII Characters " 
FOR I = 1 TO EB% ~ SB¥% STEP 2 
PRoINd SEC (2)-1;SPC(2):24+1;SPC(2); 
PRINT B%¥(1I);SPC(1);B¥(I + 1);SPC(3); 


REM the following lines calculate the ASCII Codes equivalent to the 
integers stored in matrix B*¥(XxXxxx) 

BB = INT(B%¥(1I)/256) : AA = B¥(I) - (BB*256) 

BB1 = INT(B¥(I + 1)/256) : AA1 = B¥(I + 1) - (BB1*256) 


PRINT CHRS(AA);SPC(1);CHRS(BB) ;:SPC(1);:CHRS(AA1) ;SPC(1) ;CHRS(BB1) 
REM Fol two lines store decoded graphic data in C$(matrix). 
C$(2*I ~ 1) = CHRS(AA) : C$(2*I) = CHRS(BB) i 
CS(2 "1 + 2)—= CHRS(AA1) : CS(2*2i + 2) = CHRS(BB1) 


REM the fol two lines limit screen output to nineteen lines at a 

time SLINEX = the number of <SCREEN LINES> currently displayed 
as output 

SLINEX = SLINEX + 1 : IF SLINEX% >= 20 THEN 2500 ELSE 2560 
SLINEX = 0 : CLS 

REM the fol line prints output data column headings 
PRINT " Byte # Byte # Integer Integer ASCII Characters " 

NEXT I 
REM SMEREKEMRHEEKRKREKRE ZERO B¥(matrix) & ReDIM A% (matrix) RRR EMENEEEEE 


ERASE BX 

PRINT : PRINT "Erasing BX¥(matrix) to conserve memory space." 

DIM A%(6600) : PRINT "ReDIM AX(matrix) for X & Y coordinates." 
ramen 7 0 A eee eee 
REM SRMRMERKEREKREREMEEES Decoding X and Y Integer Coords SEEKER MRARKRHKEEKREHK 


REM RE-USING AX¥(matrix) to hold integer graphic X & Y coordinate values 
decoded from disc file and stored in CS$(matrix). 
REM A%(index) to AX%(index + 2299) == X-coordinates storage 
REM AX¥(index + 3300) to A%®%(6600) == Y-coordinates storage 
PRINT : PRINT "Decoding ASCII graphic data in C$(matrix) into integer 
X and Y coordinates." 
PRINT : PRINT "Values stored in CS(matrix) are... " 
N = 1 : REM Set initial A%¥(matrix index) and A®(matrix index + 3300) 
XS = "" : YS = "" ; REM Set temporary X & Y string values to null. 
REM The index JK tracks CS$(matrix) elements being printed to screen. 
JK = 1 : REM Set secondary index for next loop to initial value. 
REM The index J tracks CS$(matrix) elements being decoded. 
J = 1 : REM Set J-index to initial value of one. 
REM ASCII values tested for in fol loop are ASCII(65) = A ASCII(44) = , 
and ASCII(59) = ; 
REM The character "A" leads the X & Y coord values; "," seperates the 
X & Y coord values; and ";" seperates the coord value pairs in the 
data string from the Signal Analyzer. 
PRINT CS$(JK); 
IF ASC(CS$(J)) <> 65 THEN 3220 
J=J+i1 
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3020 
3040 
3060 
3080 
3100 
3120 
3140 
3160 
3180 
3200 
3220 
3240 
3260 
3280 
3300 
3320 
3340 
3360 
3380 
3400 
3420 
3440 
3460 
3480 
3500 
3520 
3540 
3560 
3580 
3600 
3620 
3640 
3660 
3680 
3700 
3720 
3740 
3760 
3780 
3800 
3820 
3840 
3860 
3880 
3900 
3920 
3940 
3960 
3980 
4000 
4020 
4040 


4060 
4080 


| 


XS = XS + CS$(L) 
JI=JjJ+i 
IF ASC(CS$(J)}) <> 44 THEN 3020 - 
REM Transfer decoded X coord to A%(matrix). 
AX(N) = VAL(XS) : J = J +41 
Y$ = YS + CS(J) : J =e 
IF ASC(CS(J)) <> 59 THEN 3120 
REM Transfer decoded Y coord to AX¥(matrix INDEX + 4300) . 
AX(N + 3300) = VAL(YS) : N=N +1 : 
X$ = "" : YS = "" ;: REM Reset temporary string values to null. 
JXen JK + 1 2 J = J + 2 
IF 2*(EB%-SB%) - J > O THEN 2960 : REM End coordinate loop. 
REM ****#**eee8e%*% Start loop to storm XY¥=coordinates on Disc --.- ~~* =~" 
CLS : LOCATE 4,1 : SOUND 800,10 : SOUND 760,8 
PRINT "Graphic XY-coordinates for ";FILES;" have been determined. " 
PRINT : INPUT "Type <YES> to store XY-coordinates... ",ANSS 
IF LEFTS(ANSS,1) = "Y" THEN 3380 
IF LEFTS(ANSS,1) <> "y" THEN 3620 
PRINT : PRINT "What XY-coord filendme?" 
PRINT:PRINT "File designations must_be XYC (ie) FILENAME.XYC " 
PRINT : INPUT “Filename.XYC ... ";XYFILES 
IF RIGHTS(XYFILES,3) = "XYC" THEN 3480 
IF RIGHTS(XYFILES,3) <> "xyc" THEN 3380 
PRINT : PRINT "Storing your XY-graphic coordinates... " 
OPEN "C:\GPIB-PC\" + XYFILES FOR OUTPUT AS #2 
FOR J = 1 TON - 
PRINT #2, USING "######"; AX¥(J); AX¥(J + 3300); 
NEXT J 
PRINT #2, USING "“######"; 0;:0;0;0 
CLOSE #2 
REM RBREKKREHEKRAEEKRHEKREEE Find XMAX & YMAX & Y3DB DOWN BEBKEKKEERBHRHEEKRHEKEKEHEKE 
REM +++++++++4++++++++ NULL CS$(matrix) +e tteetr+te ttt etttteteetttetett 
ERASE CS : REM Erasing CS$(matrix) to conserve memory space. 
RET ia ee nn 
PRINT : PRINT : PRINT "Identifying XMAX and YMAX plus Y3DB-DOWN." 
PRINT : PRINT "Graphic numeric X & Y coordinates are ..." 
XMAX% = 0 : YMAX% = O : REM Set maximum initial XY coords to zero. 
FOR JJ = 1 TO N-1 


PRINT-2" X(";JI;") = "“;AK(JJ);SPC(4); 

PRINT "¥(";JJ;") = "“";A¥(JJ + 3300) 

IF A¥(JJ + 3300) < YMAX% THEN 3860 

YMAX% = A%(JJ + 3300) : XMAX®% = A®¥(JJ)°: INDEX 2 JJ 
NEXT JJ 

YBTM% = (A%(3300 + N - 2) + A%(3302))/2! 

Y3DBD = .7071067 * (YMAXX® - YBTM*) + YBTM*% 
PRINT : PRINT "Graphic file contained ";FE - 3;" total data integers." 
PRINT : PRINT "XMAX = ";XMAX%;" YMAX = "; YMAX% 
PRINT "Y(3db down) =";Y3DBD 


REM BRECKEEKKEKKREKRESEE ID Wil and W2 RBKAKEKKKKRKKEKKKSEBKKEHHHRKHEHKHHKKREKRKEEKES 


PRINT : PRINT "Identifying W1 and W2 at Y(3db down)... " 
TOL = 2.5 : REM Set comparison tolerance to two and one-half. 

REM Start loop to locate/identify horiz axis values (freq) X1 and X2 
corres to Y(3db down) values to the left & right of peak db-amplitude. 
TL = ~-100! : REM Set test index for next loop to zero. 
Xl = O! : X2 = O! : REM Set initial 3db-down X-coords to zero. 
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4100 
4120 
4140 


4160 
4180 
4200 
4220 
4240 
4260 
4280 
4300 
4320 
4340 
4360 
4380 
4400 
4420 
4440 
4460 
4480 
4500 
4520 
4540 
4560 
4580 
4600 
4620 
4640 
4660 
4680 
4700 
4720 
4740 
4760 
4780 
4800 
4820 
4840 
4860 
4880 
4900 
4920 
4940 
4960 
4980 
5000 
5020 
5040 
5060 
5080 
5100 
5120 


FOR KK = 1 TO Ne-l REM Start loop to identify X1 and X2. 
PRINT "Ss"; 
IF ABS(A®%(KK + 3300) - Y3DBD) > TOL THEN 4280 
REM Check tolerance. 


REM Skip setting X1 value if previously found. 


IF TL > O! THEN 4260 
X1 = AX( KK) TL = 10! REM Set X1 and TL 
REM Move to far side of curve amplitude maximum. 
KK = INDEX GOTO 4280 
X2 = AX®( KK) GOTO 4320 REM Set X2 and exit loop. 
NEXT KK zi 
REM RKEKEKRKRRKREKRKKEKRKAEKKE SDC Correction Factor Section RERKERERKKRKEKRKHRKAEE 
PRINT PRINT 
INPUT "What SDC/DC correction factor";CFS 
CF = VAL(CFS) 
IF CF = O! THEN 4320 
PRINT PRINT 
REM RERKEKEKRHKERHKERSEKEKEKKEK Calculate SDC & DC SKRRKEKREKRHKHAKEKEEKEKEKREKEKKSERHEEKES 


REM Calculate Specific Damping Capacity (SDC) & Damping Coefficient (DC) 


SDC = 200!*3.1415926#* ( (X2 


- X1)/XMAX% ) 


SDC SDC/CF 
DC = (X2 - KX1)/(2! * XMAX%) 
DC peo Aee 
PRINT PRINT TSS ReEKRKEKRRHKEKRKRKKRKHKKRHRHKKRKKRHERKKRKKKRHEKEKKEKEHKHRHKERKERHERHKEEKREKEKKSEKS KN 
PRINT PRINT “ VALUES FOR ";FILES;SPC(3);"YMAX(Abs) = ";YMAX% 
PRINT PRINT " SDC = "; SDC; " ®% ";SPC(3);"XK(0O) = ";A%(1) 
PRINT PRINT " DC = "; DC ;SPC(3); “XMAX(Abs) = ";A%(N-2) 
PRINT PRINT "2-29-99 9-99 nn nr rrr rrr nn i 
PRINT PRINT " SDC/DC CORRECTION FACTOR OF “;CF 
PRINT PRINT a Sea os oe ss oie a a eles a4 eae ease ae seueeeexaeas” 
PRINT: INPUT "Type any key + <RETURN> to ReEnter the SDC/DC factor ",ANSS$ 
IF ANSS <> "" THEN 4320 
PRINT PRINT 
REM SERERKREKKRKESKKEKEKKREKRKERKEHKRKEKRKERKEKRKRKESKERERSERKARKKEKEEKEERKRKEKEEKEKEKREEEKREHEHES 
PRINT : INPUT “Type yes to examine another disc file... "; ANSS 
IF LEFTS(ANSS,1) = "y" THEN 100 
IF LEFTS(ANSS,1) = "Y" THEN 100 
RUN "MENU.BAS" 
END 


REM RBREKRKEKKKEEEK No existing aisc file error trap SREKRKKKEKEKRKERHEKRSEKREKEKKKESE 
IF ERR = 53 THEN PRINT "File not found; try again. " RESUME 340 
ON ERROR GOTO O 

REM SRRREKEREKEKKKKEESE KEY (9) INTERRUPT SUBROUTINE SRREKRKEKREKEKRKREKEKEEKEEKY 


CLS Oca 47.1 BEEP BEEP 
PRINT PRINT “PROGRAM INTERRUPT. , 
PRINT PRINT "Type <RETURN> to. resume this program section." 
PRINT PRINT “Type <KK> to start this program section over." 
PRINT PRINT “Type any other key + <RETURN> to exit to main menu." 
PRINT INPUT ANSS 

IF ANSS = "“ THEN RETURN 

IF ANSS = "KK" THEN 100 

IF ANSS = "kk" THEN 100 

RUN "menu.bas" 
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100 
120 
140 
160 
180 


200 


220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
500 
5920 
540 
560 
580 
600 
620 
640 
660 
680 
700 
720 
740 
760 
780 
800 
820 
840 
860 
880 
900 
920 
940 
960 
980 
1000 
1020 
1040 
1060 
1080 
1100 
1120 
1140 


REM SRNRRREKKEEREKKEEKREKEREKXE GPIB-PC PROGRAM HEADER KR EKK EEK EKKKRKEKKRKREKEKREXE 
CLEAR : REM Clear memory for start or restart. 
REM -~---------- Program Graph Data <GRAPHXYC.BAS> ------------- 
DIM X%(1000), Y%(1000), YY%(1000) 
REM XX%¥(xxxxxX) is a matrix used to store X-coordinates from the 
designated disc file in the computer active memory 
REM Y%¥(xXxxxx) is a matrix used to store Y-coordinates from the 
designated disc file in the computer active memory 
REM YY%(XxXxxx) is a matrix holding "smoothed" Y-coord values used for 
REM calculation of SDC & DC. These coords are displayed on the computer 
REM screen for verification that smoothed curve fit is satisfactory. 
REM Note that X-coord values remain unchanged in both index and value. 
REM MRRERKKREKKKRREKRKEKREKRKRKERKEREKKEEKKREREKKRE EKER KKREKR AKER 
REM fpERRE EERE HERE EEL EE EERE REE EEE EERE EEE EEEEE EE EEELEHFEE EEE EE EEE HHH HH 
KEY 9, "EXIT" : ON KEY(9) GOSUB 4200 : KEY(9) ON : REM Interrupt trap. 
REM +E REE EERE E EEE EEE E PEE EEE EEE EE EE EEE EEE EE EEE EEE EEEEE HEHEHE HE HE H44 444444 
CLS : REM Fol box appears on the screen and defines the program function 
SOUND 900, 10 : SOUND 840, 9 
PRINT" *** 4445424 % 44444 4% Program <GRAPHXYC.BAS> eS SSS ee ess Ss eS te See 
PRINT"'** This program loads the XY-coordinate contents of a designated **" 
PRINT"** disc file into the computer, then displays those coordinates <a 
PRINT"** graphically on the computer screen. A second curve is also a 
PRINT"** displayed that is a SMOOTHED version of the disc file graph. **" 
PRINT"** The SMOOTHED version is used for SDC & DC calculations, so as 
PRINT"** its visual FIT to the disc file graphic data is displayed on **" 
PRINT" ** the computer screen for comparison. XY-coord disc files used **" 
PRINT"** by this program must have been produced by <DAMPCALC.BAS>. < 


PRINT" *# #84 8S RKKKRTEKERARERRAEEA RARER ERK KEKE KEEN 


PRINT"** Note: Disc files for this program must have file designations **" 


PRINT"** of <XYC> (ie) FILENAME. XYC Other file types will not bs 
PRINT" ** slead conre@ctly eet 
PRINT" ** € SSR eKKEKRKKREKRKRHERREEKRKKREKKRERAEKREKERERERKER ERE EKER REREREKRAE ERE KEKE EN 


ON ERROR GOTO 4160 : REM No existing disc file error trap. 
PRINT : INPUT "Type <RETURN> to continue... ",ANSS 
CLS +: FILES "*.xve. 
PRINT : PRINT "What file name contains your XY-coord data?" 


PRINT “File designation must be xyc (ie); filename.xyc " 
PRINT : INPUT "Filename.xyc ...";FILES 
IF RIGHTS(FILES,3) = "XYC" THEN 880 


IF RIGHTS(FILES,3) <> "xyc" THEN 380 
REM ******* DISC PILE LOADING SECTION ***** #844 £4 SE RKEEEKREKRKARE EKER KEE ED 


CLS : PRINT “Loading the contents of "; FILES; " into the computer... " 
PRINT : PRINT "Disc file contents are ... Please wait... " 
OPEN "c:\gpib-pc\" + FILES FOR INPUT AS #1 


FOR I = 1 TO 6000 
IF EOF(1) THEN 1120 
INPUT#1, X%(I), Y%(T) 
IF X¥(I) + Y*¥(I) = O THEN 1120 


PRINT X%(I), YX%(I); 
X = CSRLIN : IF X <= 23 THEN 1080 
CLS: LOCATE 4,1 : PRINT "Loading contents of ";FILES 
NEXT I 
he index <File End> of the last graphic coordinate. 


REM FE = t 
FE = I ; CLOSE #1 
CLS:PRINT : PRINT "Disc file ";FILES; " is loaded into active memory ... " 
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1160 
1180 
1200 
12.20 
1240 
1260 
1280 
1300 
1320 
1340 
1360 
1380 
1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1580 
1600 
1620 
1640 
1660 
1680 
1700 
1720 
1740 
1760 


1780 
1800 
1820 
1840 
1860 
1880 
1900 
1920 
1940 
1960 
1980 
2000 
2020 
2040 
2060 
2080 
2100 
2120 
2140 
2160 
2180 
2200 
2220 


1 fit 


REM KRKEKKEKK REE KKRKEK KK KKK KKKKKKEK KEK KEEKKKKKKKKEKKEKKKHKEKKRKEKEKKKARKEKKEKRKHKKEKRKEKEKEE 


rere + ****** SECTION TO LOCATE XMAX% & YMAXX & THEIR INDEX ***********4 42% 
PRINT : PRINT : PRINT "Identifying XMAX and YMAX." 
PRINT : PRINT "Graphic numeric X & Y coordinates are ..." 
XMAX% = O : YMAX% = O : REM Set maximum initial XY coords to zero. 
FOR JJ = 1 TO ee a 


PRINT ” ; . 
PRINT "(SJ As = ";X%(JJ);SPC(4); 
PRINT Yi@e oo); )e* Ya JJ) 


IF Y¥(JJ) < YMAX®% THEN 1400 
YMAX® = Y¥(JJ) : XMAX®% = X%¥(JJ) 
INDEX = JJ 
NEXT JJ 
REM KKKKKKKKKKKKKKKKKKEKE CURVE SMOOTHING SECTION KKKEKKKKKRKKRKKKKRKHKEKKEKRKEKKKKS 
REM The smoothing routine calculates the average Y-coord increase over 


REM the left half of the maxima curve (LYI == left Y-coord increment) 

REM and the right half of the maxima curve (RYI == right Y-coord incr.) 
REM Then the program adds proportionate amounts of the LYI to the Y-coord 
REM value at the left end (X minimum, Y minimum -- left) of the curve, 
REM continuing to the maximum Y-coord value (marked by INDEX). The 


REM right half of the curve is determined in a similar manner. However, 
REM the RYI is NEGATIVE, so it is subtacted in proportionate amounts 
REM from the curve maximum Y-coord value and preceeding to the right 
REM end of the curve (X minimum, Y minimum -- right). Note that the 
REM X-coord values are NOT changed in index oon ae 
Pena = PRINT "Smoothing the curve for ";FILES;:" ....... 

FOR KK = 1 TO INDEX 


REM LYI == left half of graph Y-coords average increment 
LYI = LYI + (Y%X¥(KK+1) - Y%X%(KK)) 
NEXT KK 


LYI = LYI/INDEX : REM LYI now set as equal Y-coord increment 
per coord 
FOR MM = INDEX TO FE-2 


REM RYI == right half of graph Y-coords average increment 
RYI = RYI + (Y%(MM+1) - Y%(MM) ) 
NEXT MM 
RYI = RYI/(FE-1-INDEX) : REM RYI now set as equal Y-coord increment 


FOR NN = 1 TO INDEX 
REM A smoothing factor of 1.05 was used for the left half of the 
REM curve. This factor can be changed by the programmer to suit 
REM his curve fitting preferences. 
REM Smooth left half of graph Y-coords (smoothing factor 1.05). 
YY%(NN) = Y¥%(1) + ((NN-1) * LYI) * 1.05 * (Y%(NN) /YMAX%) ~ 

NEXT NN 

. XXX = 1! 

FOR OO = INDEX+1 TO FE-1 
REM A smoothing factor of 1.20 was used for the right half of the 
REM curve. This factor can be changed by the programmer to suit 
REM his curve fitting preferences. 

~ REM Smooth right half of graph Y-coords (smoothing factor 1.2). 


YY%(O00) = YX¥( INDEX) + ( XXX * RYI) * 1.2 * (Y¥YX%(FE-1)/¥%(00))~ 
XXX = XXX + 1! 
NEXT OO 
Reece e eee ~***** Calculate Y3db down (Half—-power Y-coord) ************ 
YBTM% = (Y%(2) + YXS¥(FE -2))/2! 
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2240 
2260 
2280 


2300 
2320 
2340 
2360 
2380 


2400 
2420 
2440 
2460 
2480 
2500 
2520 
2540 
2560 
2580 
2600 
2620 
2640 
2660 
2680 
2700 
2720 
2740 
2760 
2780 
2800 
2820 
2840 
2860 
2880 
2900 
2920 
2940 
2960 
2980 
3000 
3020 
3040 
3060 
3080 
3100 
3120 
3140 
3160 
3180 


3200 
3220 


Y3DBD = .7071067 * (YMAX® - YBTM%) + YBTM% 
PRINT : PRINT "Graphic file contained ";FE ~- 1;" total XY-coordinates." 
PRINT: PRINT "“XMAX = ";XMAX%;" YMAX = "; YMAX%; " 
INDEX OF X&Y MAX = "; INDEX 

PRINT "Y(3db down) =";Y3DBD 
REM ReRKRKRKKEKK KK SECTION TO IDENTIFY Wi & W2 RHEKKRKKEKKRERKERKKARKRKERKEKKKKKEKKK KK 
PRINT : PRINT "Identifying Wi and W2 at Y(3db down)... " 

TOL = 2.5 : REM Set tolerance for selection of Wi and W2. 
REM Start loops to locate/identify horiz axis values (freq) W1 and W2 

corres to Y(3db down) values to the left & right of peak 
db-amplitude. 

W1 = O! : W2 = O! : REM Set Wi & W2 initially to zero. 

REM Start loop for finding W1. 

FOR KK = INDEX TO i STEP -1 


PRINT 2 'SS 
IF ABS(YY*¥(KK) - Y3DBD) > TOL THEN 2540 : REM Identity tolerance. 
Wl = X%(KK) : REM Set Wi to identified value. 
PRINT : PRINT : PRINT "Wl FOUND ..." : GOTO 2580 
NEXT KK 


REM Start loop for finding W2. 
FOR KL = INDEX TO FE - 1 


PRINT "S$"; 
IF ABS(YY*¥(KL) - Y3DBD) > TOL THEN 2680 : REM Identity tolerance. 
W2 = X%¥(KL) : REM Set W2 to identified value. 
PRINT : PRINT : PRINT "W2 FOUND ..." : GOTO 2700 
NEXT KL 
PRINT : PRINT "Wi = ";W1;SPC(2);"W2 = ";W2 : PRINT 


REM REKEK EK K SECTION TO CALCULATE SDC & LD SRK RBERKEKRKEKKRKKEKEKKKRKEKKERK EK 
PRINT : INPUT "What SDC/DC correction factor";CFS 
CF = VAL(CFS) 
IF CF = 0! THEN 2740 
REM Calculate Specific Damping Capacity (SDC) & Damping Coefficient (DC) 
SDC = 200!*3.1415926#*((W2 -— W1)/XMAX%) : 
SDC = SDC/CF 


DC = (W2 - W1)/(2! * XMAX%) 
DC = DC/CF 
CLS : PRINT : PRINT : REM Clear screen and position results display. 
PRINT * PRINT ue KeRRKERREKREEKEKEKRKEKRKKRKEKREKRKKEKREKRKREKREKEEKRKEKK EI 
PRINT : PRINT " RESULTS FOR “; FILES 
PRINT : PRINT " spc = "; SDC: “" Percent " 
PRINT : PRINT " DC =a Ue 
PRINT : PRINT " PLOTTER COORD YMAX(Abs) = "; YMAX% 
PRINT : PRINT " X(0O) = "; X¥(1);SPC(2);"X(MAX) = ";XX%¥(FE-2) 
PRINT : PRINT “ SDC/DC CORRECTION FACTOR IS ";CF 
PRINT PRINT re Fa Ne PE eS preg 
PRINT : INPUT "Type any key + <RETURN> to ReEnter the SDC/DC factor ",ANSS$ 
IF ANSS <> "" THEN 2720 


PRINT : PRINT 
INPUT "Type <RETURN> for graph of file data.",ANSS 
REM eORRKKKKKEKK XK KK SECTION TG PLOT GRAPHICS ReEREKRERKRKHREKEKEKERREKEKKKERKEREKKK KE 
REM XFCTR & YFCTR permit moving the screen trace about the screen X-Y 
coordinate field. A positive XFCTR moves trace to the right. 
A positive YFCTR moves the trace down. 
XFCTR = O! : YFCTR = O! 
CLS =: SCREEN 22 
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3240 
3260 
3280 
3300 
3320 
3340 
3360 
3380 
3400 
3420 
3440 
3460 
3480 
3500 
3520 
3540 
3560 
3580 
3600 
3620 
3640 
3660 
3680 
3700 
3720 
3740 
3760 
3780 
3800 
3820 
3840 
3860 
3880 
3900 


3920 
3940 
3960 
3980 
4000 
4020 
4040 
4060 
4080 
4100 
4120 
4140 
4160 
4180 
4200 
4220 
4240 
4260 
4280 
4300 


BENE (0,0) = (639,199),1,8 
Boer (0, 199), i 
FOR MM = 1 TO FE-1 
X1 = (X%(MM) * 638!)/X%(FE-1) + XFCTR 
Y1 = 198! - (Y%(MM) * 198!)/YMAX% + YFCTR 
Pine — (xl, YI) 
NEXT MM 
Poe. (0, 199), 1 
FOR MN = 1 TO FE-1i 
X1 = (X%X(MN) * 638!)/X%¥(FE-1) + XFCTR 
Y1 = 198! - (YYX(MN) * 198!) /YMAX% + YFCTR 
EENE — (X1, Yi) 
NEXT MN 


Rev ****eeeeeeee® Mark W1 and W2 


Besicions with Vertical Lines ************ 


LINE (W1*638!/X%(FE-1)+XFCTR, YMAX%/10!) - (W1*638!/X%(FE-1)+XFCTR, 198) 
LINE (W1*636!/X%(FE-1)+XFCTR, YMAX%/10!) - (W1*636!/X%(FE~-1)+XFCTR, 198) 
LINE (W1*640!/X%(FE-1)+XFCTR, YMAX%/10!) ~- (W1*640!/X%(FE-1)+XFCTR, 198) 
LINE (W2*638!/X%(FE-1)+XFCTR, YMAX%/10!) - (W2*638!/X%(FE-1)+XFCTR, 198) 
LINE (W2*636!/X%(FE-1)+XFCTR, YMAX%/10!) - (W2*636!/X%(FE-1)+XFCTR, 198) 
LINE (W2*640!/X%(FE-1)+XFCTR, YMAX%/10!) ~- (W2*640!/X%(FE-1)+XFCTR, 198) 
REM KKK KEK KKEKKKKKKKKKKKKK KKK Plot Grid Lines KHKKKEKKK KKK KKKKKKEKRKHEKKEKKKEKK KEK 
LINE (0,20) - (638,20) : LINE (0,40) - (638,40) 
LINE (0,60) - (638,60) : LINE (0,80) - (638,80) 
LINE (0,100) - (638,100) : LINE (0,120) - (638,120) 
LINE (0,140) - (638,140) : LINE (0,160) - (638,160) 
LINE (0,180) - (638,180) 
LINE (64,0) - (64,198) : LINE (128,0) - (128,198) 
LINE (192,0) - (192,198) : LINE (256,0) - (256,198) 
LINE (320,0) - (320,198) : LINE (384,0) - (384,198) 
MEINE (448,0) — (448,198) : LINE (512,0) - (512,198) 
LINE (576,0) - (576,198) 
iinet 9 Ge gs I RR ee en 
PRINT "SCREEN TRACE OF ";FILES;:" SIGNAL ANALYZER DISC FILE" 


PRINT "A positive XFCTR moves trace to the right. 


PRINT “screen trace down. <XFCTR + YFCTR = 
INPUT “WHAT XFCTR = ":XFCTR 
INPUT "WHAT YFCTR = ";YFCTR 


heearcik + YFCTR <> O! THEN 3220 


A positive YFCTR 
moves " 


O> exits the graph mode ... " 


ANSS 


REM KEKKKKKKK EK K KK KK PROGRAM ENDING KKKKKKKKKKEKKKKKKKKKKEKKKHKKKKKKKKKK KK 
SCREEN 0O REM Set the text screen. 
PRINT INPUT "Type yes to examine another disc file... "; 
IF LEFTS(ANSS,1) = "y" THEN 100 
IF LEFTS(ANSS,1) = "Y" THEN 100 
RUN "MENU.BAS" 
END 


REM KEKKKKKKKKEK KK & No existing disc file error trap KEK KKKEKKRKHKHKKKKKK KK & 


IF ERR = 53 THEN PRINT "File not found; 
ON ERROR GOTO 0O 


try again. 


" : RESUME 400 


REM EKKEKKKKKHEKKKKKEKKEKKEKKKK INTERRUPT TRAP SUBROUTINE KKKKKKKKKKKKKKKK 


TO RESUME PROGRAM EXECUTION." 


BEEP BEEP : CLS 

LOCATE 4,1 PRINT "PROGRAM INTERRUPTED. 

PRINT PRINT "TYPE <RETURN> 

PRINT PRINT "TYPE KK TO SELECT ANOTHER DATA FILE." 
PRINT PRINT 


aD 


"TYPE ANY OTHER KEY + <RETURN> TO EXIT TO MAIN MENU." 


4320 INPUT ; ANSS 


4340 IF ANSS = "" THEN RETURN 
4360 IF ANSS = "KK" THEN 4000 
4380 IF ANSS = "kk" THEN 4000 
4400 RUN “MENU.BAS" 
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Figure 4 Phase Diagram of Iron-Chromium 
Binary System 


141 





TEMPERATURE, °C 












08% ¢ Owe | 
0.03%Na! -0.02%N | 


‘ 
0.013% ¢ 
0.015% N 


[D.O3%N Al2Z%~N O2S%N 
(0.046% C 008%C 0.05%C 




















{ I 
0.015% N 
O.013%C 


t ' 
0.002%N 
2.004% C 





TEMPERATURE, °F 





ee ee ee we 


0 3 9 1$ 20 23 300 3 10 3 620) SS 30 


CHROMIUM, % 
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